(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    247314,       5807]
NotebookOptionsPosition[    207209,       5311]
NotebookOutlinePosition[    207632,       5327]
CellTagsIndexPosition[    207589,       5324]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\

Extra routines to simplify coding

\
\>", "Text",
 CellChangeTimes->{{3.887362479460453*^9, 3.887362479835428*^9}, {
  3.8995479779115715`*^9, 3.8995479987037845`*^9}},
 Background->RGBColor[
  1, 0.5, 0],ExpressionUUID->"2003fced-1e1a-4c1d-9026-690d49fe7183"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getColumn", "[", 
   RowBox[{"list_List", ",", "n_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "list", "]"}], ">", "0"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ListQ", "[", 
       RowBox[{"list", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"Transpose", "[", "list", "]"}], "[", 
       RowBox[{"[", "n", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"list", "[", 
        RowBox[{"[", "n", "]"}], "]"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", "}"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.494238999735124*^9, 3.49423910567491*^9}, {
  3.6580769394403315`*^9, 3.658076970121086*^9}, {3.658077003953021*^9, 
  3.6580770345207696`*^9}, {3.658077074321046*^9, 3.658077101120579*^9}, {
  3.658077310680565*^9, 3.6580773133287163`*^9}, {3.6580775157122917`*^9, 
  3.658077576096746*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"e0c6a03f-8655-4ebe-af5e-d152fa11fe5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"replaceColumn", "[", 
   RowBox[{"listdata_List", ",", "listtarget_List", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "listtargetT", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"listtargetT", "=", 
      RowBox[{"Transpose", "[", "listtarget", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"listtargetT", "[", 
       RowBox[{"[", "n", "]"}], "]"}], "=", "listdata"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", "listtargetT", "]"}]}]}], 
   "\[IndentingNewLine]", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"brings", " ", "back", " ", "the", " ", "new", " ", "matrix"}], 
    ",", " ", 
    RowBox[{
     RowBox[{
     "but", " ", "name", " ", "of", " ", "listtarget", " ", "is", " ", "not", 
      " ", "reassigned", " ", "so", " ", "must", " ", "be", " ", "used", " ", 
      "as", " ", "A"}], "=", 
     RowBox[{"replaceColumn", "[", 
      RowBox[{"x", ",", "A", ",", "3"}], "]"}]}]}], " ", "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4942391675134187`*^9, 3.4942392189155087`*^9}, {
  3.4942399513679953`*^9, 3.4942400487589664`*^9}, {3.494254378554412*^9, 
  3.494254380036415*^9}, {3.494254429878502*^9, 3.494254435416512*^9}, {
  3.4942544714213753`*^9, 3.4942544744321804`*^9}, {3.4942545249762692`*^9, 
  3.494254540295496*^9}, {3.4942545866587777`*^9, 3.4942545879847803`*^9}, {
  3.494254624925645*^9, 3.4942546326476583`*^9}, {3.494254666624518*^9, 
  3.4942546972317715`*^9}, {3.4942547671198945`*^9, 3.4942548212675896`*^9}, {
  3.494254966269844*^9, 3.4942549781102653`*^9}, {3.4942550220243425`*^9, 
  3.494255027609152*^9}, {3.4942551304601326`*^9, 3.494255133782939*^9}, {
  3.494255217040285*^9, 3.494255279643195*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"4143c482-ce0f-4510-9998-761fc75fed70"],

Cell[BoxData[
 RowBox[{
  RowBox[{"transformColumn", "[", 
   RowBox[{"matrix_List", ",", "ns_", ",", "transform_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cols", ",", "listtarget"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cols", "=", "ns"}], ";", "\[IndentingNewLine]", 
     RowBox[{"listtarget", "=", "matrix"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"IntegerQ", "[", "cols", "]"}], ",", 
       RowBox[{"cols", "=", 
        RowBox[{"{", "cols", "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"ListQ", "[", "cols", "]"}]}], ",", 
       RowBox[{
        RowBox[{
        "Print", "[", 
         "\"\<columns not specified as integer or list of integers\>\"", 
         "]"}], ";", 
        RowBox[{"Return", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"listtarget", "=", 
         RowBox[{"replaceColumn", "[", 
          RowBox[{
           RowBox[{"transform", "[", 
            RowBox[{"getColumn", "[", 
             RowBox[{"listtarget", ",", 
              RowBox[{"cols", "[", 
               RowBox[{"[", "n", "]"}], "]"}]}], "]"}], "]"}], ",", 
           "listtarget", ",", 
           RowBox[{"cols", "[", 
            RowBox[{"[", "n", "]"}], "]"}]}], "]"}]}], ";"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"Length", "[", "cols", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "listtarget", "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4947575720488634`*^9, 3.494757592233018*^9}, {
  3.494757625751935*^9, 3.494757649584298*^9}, {3.4947577019762945`*^9, 
  3.4947578948753276`*^9}, {3.4947579504185047`*^9, 3.494758038563546*^9}, {
  3.4947582506756783`*^9, 3.49475825997421*^9}, {3.4947583247239137`*^9, 
  3.4947583845163336`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"5e919707-6b41-4118-ac69-14ec073e6869"],

Cell[BoxData[
 RowBox[{
  RowBox[{"nColumns", "[", "matrix_List", "]"}], ":=", 
  RowBox[{"Length", "[", 
   RowBox[{"matrix", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4951971869569635`*^9, 3.4951972376570525`*^9}, {
  3.6580771301842413`*^9, 3.6580771399848013`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"47822c56-8bd5-4b4a-ac21-5f2c52c453da"],

Cell[BoxData[
 RowBox[{
  RowBox[{"nRows", "[", "matrix_List", "]"}], ":=", 
  RowBox[{"Length", "[", "matrix", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4952170603115625`*^9, 3.4952170781735935`*^9}, {
  3.658077145041091*^9, 3.6580771471122093`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"628afd4e-aaea-41b0-a1fc-a3568c055921"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyList", "[", 
   RowBox[{"X_List", ",", "Y_List"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "X", "]"}], "\[Equal]", 
     RowBox[{"Length", "[", "Y", "]"}]}], ",", 
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{"X", ",", "Y"}], "}"}]}], "]"}], ",", 
    RowBox[{"Warning", "[", 
     RowBox[{
     "\"\<Length[X] \[NotEqual] Length[Y]\>\"", ",", "Black", ",", "True"}], 
     "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.554137009231762*^9, 3.5541370745634985`*^9}, {
  3.6346424510063963`*^9, 3.634642457878789*^9}, {3.6720671346156225`*^9, 
  3.672067197976247*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"6019f2ee-3e52-4a11-a3a6-5d740c15e945"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyList", "[", 
   RowBox[{"X_List", ",", "Y_List"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "X", "]"}], "\[Equal]", 
     RowBox[{"Length", "[", "Y", "]"}]}], ",", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"X", ",", "Y"}], "}"}], "]"}], ",", 
    RowBox[{"Warning", "[", 
     RowBox[{
     "\"\<Length[X] \[NotEqual] Length[Y]\>\"", ",", "Black", ",", "True"}], 
     "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.554137009231762*^9, 3.5541370745634985`*^9}, {
  3.6346424510063963`*^9, 3.634642457878789*^9}, {3.6720671346156225`*^9, 
  3.672067197976247*^9}, {3.88419273111966*^9, 3.8841927518240247`*^9}},
 CellLabel->
  "In[868]:=",ExpressionUUID->"42c0ccf8-7da9-49ce-9980-dd738080291e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyzList", "[", 
   RowBox[{"X_List", ",", "Y_List", ",", "Z_List"}], "]"}], ":=", 
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#1", ",", "#2", ",", "#3"}], "}"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"X", ",", "Y", ",", "Z"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.554137009231762*^9, 3.5541370745634985`*^9}, {
  3.6346424510063963`*^9, 3.634642457878789*^9}, {3.651860814856427*^9, 
  3.65186083099235*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"33901459-0f7a-4c65-9df2-7ae521428d15"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyzList", "[", 
   RowBox[{"X_List", ",", "Y_List", ",", "Z_List"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "X", "]"}], "\[Equal]", 
     RowBox[{"Length", "[", "Y", "]"}], "\[Equal]", 
     RowBox[{"Length", "[", "Z", "]"}]}], ",", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"X", ",", "Y", ",", "Z"}], "}"}], "]"}], ",", 
    RowBox[{"Warning", "[", 
     RowBox[{
     "\"\<Length[X] \[NotEqual] Length[Y]\>\"", ",", "Black", ",", "True"}], 
     "]"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.554137009231762*^9, 3.5541370745634985`*^9}, {
  3.6346424510063963`*^9, 3.634642457878789*^9}, {3.651860814856427*^9, 
  3.65186083099235*^9}, {3.8841927642296243`*^9, 3.8841927837066584`*^9}},
 CellLabel->
  "In[867]:=",ExpressionUUID->"09965330-241c-4129-9dbd-a13e3182bdc8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyPick", "[", 
   RowBox[{"XY_List", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Transpose", "[", "XY", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Transpose", "[", "XY", "]"}], "[", 
       RowBox[{"[", "k", "]"}], "]"}], "}"}]}], "]"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6346424792430115`*^9, 3.6346425592705884`*^9}, {
  3.634642624126298*^9, 3.6346426483346825`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"c1250322-b31e-48a6-9ae9-1996509ad755"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xyzPick", "[", 
   RowBox[{"XYZ_List", ",", "k_"}], "]"}], ":=", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Transpose", "[", "XYZ", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Transpose", "[", "XYZ", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Transpose", "[", "XYZ", "]"}], "[", 
       RowBox[{"[", "k", "]"}], "]"}], "}"}]}], "]"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6346430054121065`*^9, 3.6346430342627563`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"1cde4af7-5de4-4d06-8d5d-c2627944c0c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ListPlus", "[", "vectors_List", "]"}], ":=", 
   RowBox[{"MapThread", "[", 
    RowBox[{"Plus", ",", "vectors"}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.5001280188491726`*^9, 3.5001280548682327`*^9}, 
   3.500128109227342*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"3732a6a2-3c83-4352-beb8-355602a0ae7a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ReportToMe", "[", 
   RowBox[{"subj_", ",", "body_"}], "]"}], ":=", 
  RowBox[{"SendMail", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\"\<To\>\"", "\[Rule]", "\"\<dirk_gillespie@rush.edu\>\""}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"\"\<Subject\>\"", "\[Rule]", "subj"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<Body\>\"", "\[Rule]", "body"}], ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<UserName\>\"", "\[Rule]", "\"\<mathematicareporter\>\""}], 
    ",", 
    RowBox[{"\"\<Password\>\"", "\[Rule]", "\"\<lougehrig\>\""}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.5140322871145763`*^9, 3.5140323606531057`*^9}, {
  3.5177423287960644`*^9, 3.5177423334473305`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"60bf30ef-83fa-4d76-a057-348c2b82054a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Warning", "[", 
   RowBox[{"msg_", ",", "color_", ",", "bool_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Print", "[", 
      RowBox[{"Style", "[", 
       RowBox[{"msg", ",", 
        RowBox[{"{", 
         RowBox[{"Bold", ",", "color"}], "}"}]}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"bool", ",", 
       RowBox[{"Abort", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.5123207356875644`*^9, 3.5123207907147117`*^9}, {
   3.516639293118349*^9, 3.516639294254414*^9}, {3.5268193747764015`*^9, 
   3.526819375520444*^9}, {3.8299315272614627`*^9, 3.8299315589722767`*^9}, 
   3.8299316051259165`*^9, {3.82993191028137*^9, 3.829931912800514*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"c5ac6f2f-3429-4d4b-ac36-8b6b98cca62f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"makeVariables", "[", "names_", "]"}], ":=", 
  RowBox[{"makeVariables", "[", 
   RowBox[{"names", ",", "False"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6608434221019626`*^9, 3.6608434390379314`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"a36e3fd1-0d13-4bd9-8385-45a64b08a2c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"makeVariables", "[", 
   RowBox[{"names_", ",", "shared_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"namelist", ",", "symbols"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"namelist", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ListQ", "[", "names", "]"}], ",", "names", ",", 
        RowBox[{"{", "names", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ClearAll", "[", 
         RowBox[{"Evaluate", "[", 
          RowBox[{"\"\<Global`\>\"", "<>", "#"}], "]"}], "]"}], "&"}], ",", 
       "namelist"}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"symbols", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Symbol", "[", "#", "]"}], "&"}], ",", "namelist"}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"shared", ",", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"\"\<SetSharedVariable[\>\"", "<>", 
         RowBox[{"StringTake", "[", 
          RowBox[{
           RowBox[{"ToString", "[", "namelist", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"-", "2"}]}], "}"}]}], "]"}], "<>", "\"\<];\>\""}], 
        "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6573847898211203`*^9, 3.657384870321725*^9}, {
   3.6573850418655367`*^9, 3.6573850519701147`*^9}, {3.6573851199300013`*^9, 
   3.65738514158624*^9}, {3.6573851732660522`*^9, 3.6573852114102335`*^9}, 
   3.6573951509947453`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"f1777493-faaf-4902-b421-326961535fb3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"setVariable", "[", 
    RowBox[{"var_", ",", "dat_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Symbol", "[", "var", "]"}], "]"}], "=", "dat"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"setVariable", ",", "HoldRest"}], "]"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7537062526627426`*^9, 3.753706281557395*^9}, {
  3.7790292907980013`*^9, 3.7790293211877155`*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"457fd49d-b656-46b9-ac10-0b0d96767143"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PositionWithCondition", "[", 
   RowBox[{"v_", ",", "f_"}], "]"}], ":=", 
  RowBox[{"Position", "[", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"f", ",", "v"}], "]"}], ",", "True"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.726581587684596*^9, 3.7265817263414907`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"af996fd1-0dd7-44ce-9160-d0c3b18c819d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FirstPositionWithCondition", "[", 
   RowBox[{"v_", ",", "f_"}], "]"}], ":=", 
  RowBox[{"FirstPosition", "[", 
   RowBox[{
    RowBox[{"Map", "[", 
     RowBox[{"f", ",", "v"}], "]"}], ",", "True"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7265817325790854`*^9, 3.72658173797745*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"6260461e-ae81-48e6-9552-dea4339d9eea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RMSD", "=", 
   RowBox[{"Compile", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", "_Real", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v2", ",", "_Real", ",", "1"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", "d", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"d", "=", 
         RowBox[{"v1", "-", "v2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", ".", "d"}], ")"}], "/", 
          RowBox[{"Length", "[", "d", "]"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.732290158496357*^9, 3.7322902414151*^9}, 
   3.7322902735449376`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"709b1de9-8e0a-4b60-8b1b-211315e20a25"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"restartKernels", "[", 
    RowBox[{"nkernels_", "?", "NumericQ"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", "1"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CloseKernels", "[", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"LaunchKernels", "[", "nkernels", "]"}], ";", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"$KernelCount", "\[NotEqual]", "nkernels"}], "&&", 
           RowBox[{"k", "\[LessEqual]", "10"}]}], ",", 
          RowBox[{
           RowBox[{"k", "++"}], ";", 
           RowBox[{"CloseKernels", "[", "]"}], ";", 
           RowBox[{"LaunchKernels", "[", "nkernels", "]"}]}]}], "]"}], ";"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"ParallelEvaluate", "[", 
       RowBox[{"System`SetSystemOptions", "[", 
        RowBox[{"\"\<ProcessPriority\>\"", "\[Rule]", "1"}], "]"}], "]"}], 
      ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"restartKernels", "[", 
    RowBox[{"computer_", "?", "StringQ"}], "]"}], ":=", 
   RowBox[{"restartKernels", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"restartKernels", "[", "]"}], ":=", 
   RowBox[{"restartKernels", "[", "KernelsByMachine", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"KernelsByMachine", ":=", 
  RowBox[{"Which", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"StringTake", "[", 
      RowBox[{
       RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "4"}], "]"}], 
     "\[Equal]", "\"\<TOMM\>\""}], ",", "27", 
    RowBox[{"(*", "30", "*)"}], ",", 
    RowBox[{
     RowBox[{"StringTake", "[", 
      RowBox[{
       RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "4"}], "]"}], 
     "\[Equal]", "\"\<MIKA\>\""}], ",", "36", 
    RowBox[{"(*", "32", "*)"}], ",", 
    RowBox[{
     RowBox[{"StringTake", "[", 
      RowBox[{
       RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "4"}], "]"}], 
     "\[Equal]", "\"\<LIND\>\""}], ",", "2", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "3"}], "]"}],
        "\[Equal]", "\"\<MIA\>\""}], ")"}], "||", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"StringTake", "[", 
        RowBox[{
         RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "5"}], "]"}],
        "\[Equal]", "\"\<KELLY\>\""}], ")"}]}], ",", "10", ",", 
    RowBox[{
     RowBox[{"StringTake", "[", 
      RowBox[{
       RowBox[{"ToUpperCase", "[", "$MachineName", "]"}], ",", "2"}], "]"}], 
     "\[Equal]", "\"\<JS\>\""}], ",", "5", ",", "True", ",", "8"}], 
   "]"}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.730042795209581*^9, 3.7300428148397036`*^9}, {
   3.730119575038136*^9, 3.7301196171485443`*^9}, 3.7301196498374143`*^9, {
   3.7302142813802395`*^9, 3.730214288148627*^9}, {3.7302143200214496`*^9, 
   3.7302143245167065`*^9}, 3.7302207746806355`*^9, {3.735580857142782*^9, 
   3.7355810304863386`*^9}, {3.7355810616625633`*^9, 3.735581066854247*^9}, {
   3.7355811059431257`*^9, 3.735581129998275*^9}, {3.753103464050934*^9, 
   3.753103465616056*^9}, {3.7531035606017075`*^9, 3.753103562400989*^9}, {
   3.7589015051637483`*^9, 3.758901584059261*^9}, {3.774269757548772*^9, 
   3.774269820723385*^9}, {3.785592816420828*^9, 3.7855928232172165`*^9}, {
   3.7855928662736797`*^9, 3.785592872537038*^9}, 3.7996757559286594`*^9, {
   3.799676199169011*^9, 3.7996762114977164`*^9}, 3.7996823301802073`*^9, {
   3.79968405509585*^9, 3.7996840569834538`*^9}, {3.857738042531974*^9, 
   3.857738056244546*^9}, {3.857738173599823*^9, 3.857738173946615*^9}, {
   3.860751041792943*^9, 3.8607510532332335`*^9}, {3.860751091748406*^9, 
   3.8607510918325586`*^9}, {3.869578773986067*^9, 3.8695787785930696`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"94e43306-d77d-4f98-a20e-28ba6bde62ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HistogramData", "[", 
   RowBox[{"v_", ",", "opt___"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "hl", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "v", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"{", "}"}]}], "}"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hl", "=", 
      RowBox[{"N", "[", 
       RowBox[{"HistogramList", "[", 
        RowBox[{"v", ",", "opt"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"MovingAverage", "[", 
        RowBox[{
         RowBox[{"hl", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "2"}], "]"}], ",", 
       RowBox[{"hl", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.736186741847208*^9, 3.7361867512467456`*^9}, {
  3.7361868108301535`*^9, 3.7361868268460693`*^9}, {3.736186864837242*^9, 
  3.736186867045369*^9}, {3.7373767479625072`*^9, 3.7373767511891155`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"3615300f-d131-458d-8288-fc9721506738"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HistogramBarData", "[", 
   RowBox[{"v_", ",", "opt___"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "hl", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "v", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{"{", "}"}]}], "}"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hl", "=", 
      RowBox[{"N", "[", 
       RowBox[{"HistogramList", "[", 
        RowBox[{"v", ",", "opt"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Most", "[", 
        RowBox[{"hl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"hl", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.736186741847208*^9, 3.7361867512467456`*^9}, {
  3.7361868108301535`*^9, 3.7361868268460693`*^9}, {3.736186864837242*^9, 
  3.736186867045369*^9}, {3.7373767479625072`*^9, 3.7373767511891155`*^9}, {
  3.7531154130660353`*^9, 3.7531154377704487`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"04ce4c58-43ca-4123-a28d-f53595773ab7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DerivativeMatrix", "[", 
   RowBox[{"grid_", ",", "deriv_", ",", "order_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"NDSolve`FiniteDifferenceDerivative", "[", 
    RowBox[{"deriv", ",", " ", "grid", ",", "  ", 
     RowBox[{"\"\<DifferenceOrder\>\"", "\[Rule]", "order"}]}], "]"}], "[", 
   "\"\<DifferentiationMatrix\>\"", "]"}]}]], "Input",
 InitializationCell->True,
 CellLabel->"In[27]:=",ExpressionUUID->"718572ed-7c80-4c26-908d-443ec6962715"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gaussian", "[", 
   RowBox[{"x_", ",", "\[Mu]_", ",", "\[Sigma]_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]", "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", "\[Pi]"}], "]"}]}], ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "\[Mu]"}], ")"}], "/", "\[Sigma]"}], ")"}], "2"]}],
     "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.7770388235893526`*^9, 3.7770389093302565`*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"82e13190-8e7d-41ef-92ab-503c01007229"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Tachymeter", "[", 
    RowBox[{"expr_", ",", "unit_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "t", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"t", "=", 
       RowBox[{"AbsoluteTiming", "[", "expr", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"UnitConvert", "[", 
          RowBox[{
           RowBox[{"Quantity", "[", 
            RowBox[{
             RowBox[{"t", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<Seconds\>\""}], "]"}],
            ",", "unit"}], "]"}], 
         RowBox[{"-", "1"}]], ",", 
        RowBox[{"Quantity", "[", 
         RowBox[{
          RowBox[{"t", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<Seconds\>\""}], "]"}], 
        ",", 
        RowBox[{"t", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tachymeter", "[", "expr_", "]"}], ":=", 
  RowBox[{"Tachymeter", "[", 
   RowBox[{"expr", ",", "\"\<Hours\>\""}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"Tachymeter", ",", "HoldFirst"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.778971395399063*^9, 3.7789714509494996`*^9}, {
   3.778971762894065*^9, 3.7789717831538744`*^9}, {3.7789718274830065`*^9, 
   3.7789718319250937`*^9}, {3.778971910094992*^9, 3.7789720683556533`*^9}, {
   3.7789721296626606`*^9, 3.7789721780562115`*^9}, 3.7789723599267473`*^9, {
   3.778972637769535*^9, 3.7789726612906184`*^9}, 3.778972807734852*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"3dfa35b8-3a7f-4d91-972b-53cf5c79dfdb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TachyConvert", "[", 
    RowBox[{"t_", ",", "unit_"}], "]"}], ":=", 
   SuperscriptBox[
    RowBox[{"UnitConvert", "[", 
     RowBox[{
      RowBox[{"Quantity", "[", 
       RowBox[{
        RowBox[{"N", "[", "t", "]"}], ",", "\"\<Seconds\>\""}], "]"}], ",", 
      "unit"}], "]"}], 
    RowBox[{"-", "1"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TachyConvert", "[", "t_", "]"}], ":=", 
   RowBox[{"TachyConvert", "[", 
    RowBox[{"t", ",", "\"\<Hours\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.778972600704707*^9, 3.7789726230957546`*^9}, {
  3.7789726965143623`*^9, 3.7789727861725597`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"15886dac-bd27-428d-a559-af5026e3f8ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"StringEqual", "[", 
   RowBox[{"s1_", ",", "s2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"ToUpperCase", "[", "s1", "]"}], "===", 
   RowBox[{"ToUpperCase", "[", "s2", "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.740929716911091*^9, 3.740929748756912*^9}, {
  3.740932690334161*^9, 3.740932690613177*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"07264f0a-efe3-4963-8320-c85cac989f47"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Functionalize", "[", 
   RowBox[{"var_", ",", "e_"}], "]"}], ":=", 
  RowBox[{"ToExpression", "[", 
   RowBox[{"\"\<Function[\>\"", "<>", 
    RowBox[{"ToString", "[", "var", "]"}], "<>", "\"\<,\>\"", "<>", 
    RowBox[{"ToString", "[", 
     RowBox[{"e", "//", "InputForm"}], "]"}], "<>", "\"\<]\>\""}], 
   "]"}]}]], "Input",
 InitializationCell->
  True,ExpressionUUID->"aa659e4e-d11d-4cdf-a35c-8652b95fb328"],

Cell["\<\

Subroutines that are the heart of the simulations

\
\>", "Text",
 CellChangeTimes->{{3.887362479460453*^9, 3.887362479835428*^9}, {
  3.8995479779115715`*^9, 3.899548048575033*^9}},
 Background->RGBColor[
  1, 0.5, 0],ExpressionUUID->"7445c256-6181-4657-b15e-512bb28c7b0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"recur", "[", 
   RowBox[{
   "R_", ",", "Amax_", ",", "nn_", ",", "f_", ",", "r_", ",", "c_", ",", "p_",
     ",", "s_", ",", "simlen_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"F", "=", 
      RowBox[{"Compile", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"oA", ",", "_Real", ",", "1"}], "}"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"A", ",", "o", ",", "v", ",", "n"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"o", ",", "A"}], "}"}], "=", "oA"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"n", "=", 
            RowBox[{"f", "*", "A"}]}], 
           RowBox[{"(*", 
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{"f", "*", "A"}], "]"}], ",", "A"}], "]"}], "*)"}], ";",
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"o", "=", 
            RowBox[{"o", "-", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"o", "==", "0"}], ",", "0", ",", 
               RowBox[{"Total", "[", 
                RowBox[{"Map", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "<", 
                    RowBox[{"1.", "-", "c"}]}], ",", "0", ",", "1"}], "]"}], 
                   "&"}], ",", 
                  RowBox[{"RandomReal", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", "o"}], "]"}]}], 
                 "]"}], "]"}]}], "]"}], "+", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"R", "==", "o"}], ",", "0", ",", 
               RowBox[{"Total", "[", 
                RowBox[{"RandomChoice", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "-", "s"}], ",", "s"}], "}"}], "->", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}]}], ",", 
                  RowBox[{"R", "-", "o"}]}], "]"}], "]"}]}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"v", "=", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1.", "-", "p"}], ")"}], "^", "n"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Do", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"o", "==", "R"}], ",", 
                RowBox[{"Break", "[", "]"}], ",", 
                RowBox[{"o", "=", 
                 RowBox[{"o", "+", 
                  RowBox[{"Total", "[", 
                   RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "<=", "v"}], ",", "0", ",", "1"}], "]"}], 
                    "&"}], ",", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", 
                    RowBox[{"Min", "[", 
                    RowBox[{"nn", ",", 
                    RowBox[{"R", "-", "o"}]}], "]"}]}], "]"}]}], "]"}], 
                   "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", 
             RowBox[{"{", "o", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"A", "=", 
            RowBox[{"Clip", "[", 
             RowBox[{
              RowBox[{"A", "-", 
               RowBox[{"n", "*", "o"}], "+", 
               RowBox[{"r", "*", 
                RowBox[{"(", 
                 RowBox[{"Amax", "-", "A"}], ")"}]}]}], 
              RowBox[{"(*", 
               RowBox[{"Round", "[", 
                RowBox[{"r", "*", 
                 RowBox[{"(", 
                  RowBox[{"Amax", "-", "A"}], ")"}]}], "]"}], "*)"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "Amax"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"o", ",", "A"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"CompilationOptions", "->", 
         RowBox[{"{", 
          RowBox[{
          "\"\<InlineExternalDefinitions\>\"", " ", "->", " ", "True"}], 
          "}"}]}], ",", 
        RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"g", "=", 
      RowBox[{"NestList", "[", 
       RowBox[{"F", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "Amax"}], "}"}], ",", "simlen"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"w", "=", 
      RowBox[{"Transpose", "[", "g", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"w", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"HistogramBarData", "[", 
          RowBox[{
           RowBox[{"w", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"R", "+", "1"}], ",", "1"}], "}"}], ",", 
           "\"\<Probability\>\""}], "]"}], "]"}], ",", 
        RowBox[{"Transpose", "[", 
         RowBox[{"HistogramBarData", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"w", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", "Amax"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1.01", ",", "0.01"}], "}"}], ",", 
           "\"\<Probability\>\""}], "]"}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", "w"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.885928293796875*^9, 3.8859283798390007`*^9}, {
   3.8859286952447257`*^9, 3.8859286954273205`*^9}, {3.8859876778223467`*^9, 
   3.88598787086347*^9}, {3.8859879022658715`*^9, 3.8859880734893394`*^9}, {
   3.885988281332577*^9, 3.885988287678407*^9}, {3.885988359692007*^9, 
   3.8859883930783834`*^9}, {3.88598845161055*^9, 3.8859884589125323`*^9}, {
   3.885988496482876*^9, 3.885988497700446*^9}, {3.8859885572821035`*^9, 
   3.8859885789062324`*^9}, {3.885988702673164*^9, 3.885988853638942*^9}, {
   3.885988895189562*^9, 3.885988899542798*^9}, {3.8859889444134617`*^9, 
   3.8859889452285852`*^9}, {3.8859889895050335`*^9, 
   3.8859889918097115`*^9}, {3.885989062165988*^9, 3.88598919096611*^9}, {
   3.885989289184594*^9, 3.885989290432416*^9}, {3.885989320544113*^9, 
   3.8859893209693007`*^9}, {3.885989359253681*^9, 3.88598943641148*^9}, {
   3.8859894751783605`*^9, 3.885989487337942*^9}, {3.8859897275449524`*^9, 
   3.8859897372839684`*^9}, 3.885989923155985*^9, 3.886014341790016*^9, {
   3.8860145025297003`*^9, 3.886014510078089*^9}, 3.8860149170314493`*^9, {
   3.886015642268884*^9, 3.886015665903771*^9}, {3.886015713858609*^9, 
   3.8860157361777267`*^9}, 3.886015829411293*^9, {3.8860159543104534`*^9, 
   3.886015954979934*^9}, 3.8860160314689684`*^9, {3.8860165091918187`*^9, 
   3.886016642582468*^9}, {3.886016773640049*^9, 3.886016778437049*^9}, 
   3.8860170657815104`*^9, {3.886017220431265*^9, 3.8860172283281765`*^9}, 
   3.8860173022063885`*^9, 3.886017505100111*^9, 3.886017598964668*^9, 
   3.886022790738761*^9, {3.886022897766507*^9, 3.88602290249946*^9}, 
   3.886023141200929*^9, {3.886519977100688*^9, 3.886519984314324*^9}, 
   3.886520340921686*^9, {3.88652051848532*^9, 3.8865205868508377`*^9}, {
   3.8865206189857807`*^9, 3.886520779600303*^9}, {3.8865208778347926`*^9, 
   3.8865209082805715`*^9}, {3.886521996454822*^9, 3.8865219994950633`*^9}, {
   3.8865221328916407`*^9, 3.8865222566722927`*^9}, {3.886522288408769*^9, 
   3.8865224845991173`*^9}, {3.886522580247259*^9, 3.886522605961686*^9}, {
   3.8868460933594923`*^9, 3.886846132387548*^9}, {3.886846237391461*^9, 
   3.8868462717643657`*^9}, {3.886846356713525*^9, 3.8868463584797993`*^9}, 
   3.886846461310255*^9, 3.889721042963574*^9, {3.8897210938517413`*^9, 
   3.8897212413236227`*^9}, {3.88972133295757*^9, 3.8897213512603707`*^9}, {
   3.889721396325097*^9, 3.889721401660259*^9}, {3.889721623165353*^9, 
   3.889721654820421*^9}, 3.8897219686645555`*^9, 3.8897244037285028`*^9, {
   3.889724484689212*^9, 3.8897245089195223`*^9}, {3.8897246214176083`*^9, 
   3.889724621640806*^9}, {3.889724682753228*^9, 3.889724687783352*^9}, 
   3.8898009272152367`*^9, {3.889800987978511*^9, 3.8898010553716564`*^9}, {
   3.889801199323315*^9, 3.889801467291252*^9}, {3.889801515732273*^9, 
   3.889801555733421*^9}, {3.8898016169816513`*^9, 3.8898016181896114`*^9}, {
   3.8898016566838903`*^9, 3.889801700892399*^9}, {3.889801736066732*^9, 
   3.8898019034524536`*^9}, {3.88980200380425*^9, 3.8898020345890703`*^9}, {
   3.8898020665245914`*^9, 3.88980210505906*^9}, {3.8898021759012284`*^9, 
   3.8898021797646365`*^9}, {3.88980225481299*^9, 3.8898022631651416`*^9}, {
   3.8898023077411394`*^9, 3.889802367644127*^9}, {3.8898024096126204`*^9, 
   3.889802504029024*^9}, {3.8898026756217337`*^9, 3.889802745784892*^9}, {
   3.8898028265323668`*^9, 3.889802911542343*^9}, {3.889803007568533*^9, 
   3.8898030261259828`*^9}, {3.8898031294892054`*^9, 
   3.8898031452360616`*^9}, {3.8898031843742867`*^9, 3.889803207704894*^9}, {
   3.8898032616884727`*^9, 3.8898032685175705`*^9}, {3.8898034488764153`*^9, 
   3.889803488641778*^9}, {3.8898035216886387`*^9, 3.889803531679499*^9}, {
   3.889803576064025*^9, 3.8898036277443237`*^9}, {3.889803657813665*^9, 
   3.8898037029070582`*^9}, {3.889803746673126*^9, 3.8898037823451014`*^9}, {
   3.8898038600012074`*^9, 3.889803861464886*^9}, {3.889803989938175*^9, 
   3.889804014095011*^9}, {3.889804046378416*^9, 3.889804047954147*^9}, {
   3.8898040968924675`*^9, 3.8898041003131247`*^9}, {3.889804152829594*^9, 
   3.88980415428235*^9}, {3.8898043323916645`*^9, 3.889804382219696*^9}, {
   3.8898044152358694`*^9, 3.889804445767784*^9}, {3.8898045709701*^9, 
   3.8898045968763924`*^9}, 3.889804678016739*^9, {3.8898047162045407`*^9, 
   3.889804719453843*^9}, {3.8898047726573772`*^9, 3.889804826881547*^9}, {
   3.889804863891698*^9, 3.8898048657679195`*^9}, {3.889804930172454*^9, 
   3.889804964595455*^9}, {3.8898050218607492`*^9, 3.8898050238824425`*^9}, {
   3.889805054411706*^9, 3.8898050562732944`*^9}, {3.8898051010168915`*^9, 
   3.8898051086421537`*^9}, {3.8898052561885657`*^9, 3.889805273656972*^9}, {
   3.889805373732341*^9, 3.8898053791570077`*^9}, {3.8898054464551697`*^9, 
   3.889805453844595*^9}, {3.889805485308258*^9, 3.8898054868605933`*^9}, 
   3.8898056024427476`*^9, {3.889805698554899*^9, 3.889805700470572*^9}, 
   3.8898060781411357`*^9, {3.889806127158023*^9, 3.889806170236147*^9}, {
   3.8898062686580687`*^9, 3.889806273719779*^9}, {3.88980634107928*^9, 
   3.8898063486102223`*^9}, {3.8898063830016603`*^9, 3.889806430563196*^9}, {
   3.8898065124070024`*^9, 3.8898065140645714`*^9}, {3.8898065890787153`*^9, 
   3.88980662554842*^9}, {3.889806709032098*^9, 3.889806733798214*^9}, {
   3.889807030985697*^9, 3.8898070788765297`*^9}, {3.8898071244663734`*^9, 
   3.8898071755018997`*^9}, {3.889807632813297*^9, 3.8898076450801053`*^9}, {
   3.889807792401187*^9, 3.8898078054227023`*^9}, {3.889807947333378*^9, 
   3.889807965406889*^9}, {3.889807997674011*^9, 3.889807998391383*^9}, {
   3.8898080510600786`*^9, 3.889808056205271*^9}, 3.889808289298582*^9, {
   3.889808399750945*^9, 3.8898084012525897`*^9}, {3.889808526610948*^9, 
   3.889808537626834*^9}, {3.8898086357040095`*^9, 3.88980865996984*^9}, {
   3.889808787423184*^9, 3.889808794703659*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"76d153fa-f727-4fbe-bbd3-368aa293831f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"recurProfile", "[", 
   RowBox[{
   "R_", ",", "Amax_", ",", "nn_", ",", "f_", ",", "r_", ",", "c_", ",", "p_",
     ",", "s_", ",", "simlen_", ",", "histobool_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"F", "=", 
      RowBox[{"Compile", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"oA", ",", "_Real", ",", "1"}], "}"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"A", ",", "o", ",", "v", ",", "n"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"o", ",", "A"}], "}"}], "=", "oA"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"n", "=", 
            RowBox[{"f", "*", "A"}]}], 
           RowBox[{"(*", 
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"Round", "[", 
               RowBox[{"f", "*", "A"}], "]"}], ",", "A"}], "]"}], "*)"}], ";",
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"o", "=", 
            RowBox[{"o", "-", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"o", "==", "0"}], ",", "0", ",", 
               RowBox[{"Total", "[", 
                RowBox[{"Map", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "<", 
                    RowBox[{"1.", "-", "c"}]}], ",", "0", ",", "1"}], "]"}], 
                   "&"}], ",", 
                  RowBox[{"RandomReal", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", "o"}], "]"}]}], 
                 "]"}], "]"}]}], "]"}], "+", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"R", "==", "o"}], ",", "0", ",", 
               RowBox[{"Total", "[", 
                RowBox[{"RandomChoice", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "-", "s"}], ",", "s"}], "}"}], "->", 
                   RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}]}], ",", 
                  RowBox[{"R", "-", "o"}]}], "]"}], "]"}]}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"v", "=", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1.", "-", "p"}], ")"}], "^", "n"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Do", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"o", "==", "R"}], ",", 
                RowBox[{"Break", "[", "]"}], ",", 
                RowBox[{"o", "=", 
                 RowBox[{"o", "+", 
                  RowBox[{"Total", "[", 
                   RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "<=", "v"}], ",", "0", ",", "1"}], "]"}], 
                    "&"}], ",", 
                    RowBox[{"RandomReal", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "1"}], "}"}], ",", 
                    RowBox[{"Min", "[", 
                    RowBox[{"nn", ",", 
                    RowBox[{"R", "-", "o"}]}], "]"}]}], "]"}]}], "]"}], 
                   "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", 
             RowBox[{"{", "o", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"A", "=", 
            RowBox[{"Clip", "[", 
             RowBox[{
              RowBox[{"A", "-", 
               RowBox[{"n", "*", "o"}], "+", 
               RowBox[{"r", "*", 
                RowBox[{"(", 
                 RowBox[{"Amax", "-", "A"}], ")"}]}]}], 
              RowBox[{"(*", 
               RowBox[{"Round", "[", 
                RowBox[{"r", "*", 
                 RowBox[{"(", 
                  RowBox[{"Amax", "-", "A"}], ")"}]}], "]"}], "*)"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "Amax"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"o", ",", "A"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"CompilationOptions", "->", 
         RowBox[{"{", 
          RowBox[{
          "\"\<InlineExternalDefinitions\>\"", " ", "->", " ", "True"}], 
          "}"}]}], ",", 
        RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"g", "=", 
      RowBox[{"NestList", "[", 
       RowBox[{"F", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "Amax"}], "}"}], ",", "simlen"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"w", "=", 
      RowBox[{"Transpose", "[", "g", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"histobool", ",", "\[IndentingNewLine]", 
       RowBox[{"w", "=", 
        RowBox[{"{", 
         RowBox[{"w", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Transpose", "[", 
             RowBox[{"HistogramBarData", "[", 
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"R", "+", "1"}], ",", "1"}], "}"}], ",", 
               "\"\<Probability\>\""}], "]"}], "]"}], ",", 
            RowBox[{"Transpose", "[", 
             RowBox[{"HistogramBarData", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"w", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "/", "Amax"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1.01", ",", "0.01"}], "}"}], ",", 
               "\"\<Probability\>\""}], "]"}], "]"}]}], "}"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "w"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.885928293796875*^9, 3.8859283798390007`*^9}, {
   3.8859286952447257`*^9, 3.8859286954273205`*^9}, {3.8859876778223467`*^9, 
   3.88598787086347*^9}, {3.8859879022658715`*^9, 3.8859880734893394`*^9}, {
   3.885988281332577*^9, 3.885988287678407*^9}, {3.885988359692007*^9, 
   3.8859883930783834`*^9}, {3.88598845161055*^9, 3.8859884589125323`*^9}, {
   3.885988496482876*^9, 3.885988497700446*^9}, {3.8859885572821035`*^9, 
   3.8859885789062324`*^9}, {3.885988702673164*^9, 3.885988853638942*^9}, {
   3.885988895189562*^9, 3.885988899542798*^9}, {3.8859889444134617`*^9, 
   3.8859889452285852`*^9}, {3.8859889895050335`*^9, 
   3.8859889918097115`*^9}, {3.885989062165988*^9, 3.88598919096611*^9}, {
   3.885989289184594*^9, 3.885989290432416*^9}, {3.885989320544113*^9, 
   3.8859893209693007`*^9}, {3.885989359253681*^9, 3.88598943641148*^9}, {
   3.8859894751783605`*^9, 3.885989487337942*^9}, {3.8859897275449524`*^9, 
   3.8859897372839684`*^9}, 3.885989923155985*^9, 3.886014341790016*^9, {
   3.8860145025297003`*^9, 3.886014510078089*^9}, 3.8860149170314493`*^9, {
   3.886015642268884*^9, 3.886015665903771*^9}, {3.886015713858609*^9, 
   3.8860157361777267`*^9}, 3.886015829411293*^9, {3.8860159543104534`*^9, 
   3.886015954979934*^9}, 3.8860160314689684`*^9, {3.8860165091918187`*^9, 
   3.886016642582468*^9}, {3.886016773640049*^9, 3.886016778437049*^9}, 
   3.8860170657815104`*^9, {3.886017220431265*^9, 3.8860172283281765`*^9}, 
   3.8860173022063885`*^9, 3.886017505100111*^9, 3.886017598964668*^9, 
   3.886022790738761*^9, {3.886022897766507*^9, 3.88602290249946*^9}, 
   3.886023141200929*^9, {3.886519977100688*^9, 3.886519984314324*^9}, 
   3.886520340921686*^9, {3.88652051848532*^9, 3.8865205868508377`*^9}, {
   3.8865206189857807`*^9, 3.886520779600303*^9}, {3.8865208778347926`*^9, 
   3.8865209082805715`*^9}, {3.886521996454822*^9, 3.8865219994950633`*^9}, {
   3.8865221328916407`*^9, 3.8865222566722927`*^9}, {3.886522288408769*^9, 
   3.8865224845991173`*^9}, {3.886522580247259*^9, 3.886522605961686*^9}, {
   3.8868460933594923`*^9, 3.886846132387548*^9}, {3.886846237391461*^9, 
   3.8868462717643657`*^9}, {3.886846356713525*^9, 3.8868463584797993`*^9}, 
   3.886846461310255*^9, 3.889721042963574*^9, {3.8897210938517413`*^9, 
   3.8897212413236227`*^9}, {3.88972133295757*^9, 3.8897213512603707`*^9}, {
   3.889721396325097*^9, 3.889721401660259*^9}, {3.889721623165353*^9, 
   3.889721654820421*^9}, 3.8897219686645555`*^9, 3.8897244037285028`*^9, {
   3.889724484689212*^9, 3.8897245089195223`*^9}, {3.8897246214176083`*^9, 
   3.889724621640806*^9}, {3.889724682753228*^9, 3.889724687783352*^9}, 
   3.8898009272152367`*^9, {3.889800987978511*^9, 3.8898010553716564`*^9}, {
   3.889801199323315*^9, 3.889801467291252*^9}, {3.889801515732273*^9, 
   3.889801555733421*^9}, {3.8898016169816513`*^9, 3.8898016181896114`*^9}, {
   3.8898016566838903`*^9, 3.889801700892399*^9}, {3.889801736066732*^9, 
   3.8898019034524536`*^9}, {3.88980200380425*^9, 3.8898020345890703`*^9}, {
   3.8898020665245914`*^9, 3.88980210505906*^9}, {3.8898021759012284`*^9, 
   3.8898021797646365`*^9}, {3.88980225481299*^9, 3.8898022631651416`*^9}, {
   3.8898023077411394`*^9, 3.889802367644127*^9}, {3.8898024096126204`*^9, 
   3.889802504029024*^9}, {3.8898026756217337`*^9, 3.889802745784892*^9}, {
   3.8898028265323668`*^9, 3.889802911542343*^9}, {3.889803007568533*^9, 
   3.8898030261259828`*^9}, {3.8898031294892054`*^9, 
   3.8898031452360616`*^9}, {3.8898031843742867`*^9, 3.889803207704894*^9}, {
   3.8898032616884727`*^9, 3.8898032685175705`*^9}, {3.8898034488764153`*^9, 
   3.889803488641778*^9}, {3.8898035216886387`*^9, 3.889803531679499*^9}, {
   3.889803576064025*^9, 3.8898036277443237`*^9}, {3.889803657813665*^9, 
   3.8898037029070582`*^9}, {3.889803746673126*^9, 3.8898037823451014`*^9}, {
   3.8898038600012074`*^9, 3.889803861464886*^9}, {3.889803989938175*^9, 
   3.889804014095011*^9}, {3.889804046378416*^9, 3.889804047954147*^9}, {
   3.8898040968924675`*^9, 3.8898041003131247`*^9}, {3.889804152829594*^9, 
   3.88980415428235*^9}, {3.8898043323916645`*^9, 3.889804382219696*^9}, {
   3.8898044152358694`*^9, 3.889804445767784*^9}, {3.8898045709701*^9, 
   3.8898045968763924`*^9}, 3.889804678016739*^9, {3.8898047162045407`*^9, 
   3.889804719453843*^9}, {3.8898047726573772`*^9, 3.889804826881547*^9}, {
   3.889804863891698*^9, 3.8898048657679195`*^9}, {3.889804930172454*^9, 
   3.889804964595455*^9}, {3.8898050218607492`*^9, 3.8898050238824425`*^9}, {
   3.889805054411706*^9, 3.8898050562732944`*^9}, {3.8898051010168915`*^9, 
   3.8898051086421537`*^9}, {3.8898052561885657`*^9, 3.889805273656972*^9}, {
   3.889805373732341*^9, 3.8898053791570077`*^9}, {3.8898054464551697`*^9, 
   3.889805453844595*^9}, {3.889805485308258*^9, 3.8898054868605933`*^9}, 
   3.8898056024427476`*^9, {3.889805698554899*^9, 3.889805700470572*^9}, 
   3.8898060781411357`*^9, {3.889806127158023*^9, 3.889806170236147*^9}, {
   3.8898062686580687`*^9, 3.889806273719779*^9}, {3.88980634107928*^9, 
   3.8898063486102223`*^9}, {3.8898063830016603`*^9, 3.889806430563196*^9}, {
   3.8898065124070024`*^9, 3.8898065140645714`*^9}, {3.8898065890787153`*^9, 
   3.88980662554842*^9}, {3.889806709032098*^9, 3.889806733798214*^9}, {
   3.889807030985697*^9, 3.8898070788765297`*^9}, {3.8898071244663734`*^9, 
   3.8898071755018997`*^9}, {3.889807632813297*^9, 3.8898076450801053`*^9}, {
   3.889807792401187*^9, 3.8898078054227023`*^9}, {3.889807947333378*^9, 
   3.889807965406889*^9}, {3.889807997674011*^9, 3.889807998391383*^9}, {
   3.8898080510600786`*^9, 3.889808056205271*^9}, 3.889808289298582*^9, {
   3.889808399750945*^9, 3.8898084012525897`*^9}, {3.889808526610948*^9, 
   3.889808537626834*^9}, {3.8898086357040095`*^9, 3.88980865996984*^9}, {
   3.889808787423184*^9, 3.889808794703659*^9}, {3.8915180680379944`*^9, 
   3.8915180812551785`*^9}, 3.8927197127896395`*^9, {3.892719746787376*^9, 
   3.892719824834944*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"bbd3eb22-b2c5-45c1-83f7-450e025b3074"],

Cell[BoxData[
 RowBox[{
  RowBox[{"recurProfile", "[", 
   RowBox[{
   "R_", ",", "Amax_", ",", "nn_", ",", "f_", ",", "r_", ",", "c_", ",", "p_",
     ",", "s_", ",", "simlen_"}], "]"}], ":=", 
  RowBox[{"recurProfile", "[", 
   RowBox[{
   "R", ",", "Amax", ",", "nn", ",", "f", ",", "r", ",", "c", ",", "p", ",", 
    "s", ",", "simlen", ",", "False"}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.892719722200165*^9, 3.8927197416242304`*^9}, {
  3.8928973965447283`*^9, 3.8928973995772085`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"982e88de-b56d-4092-9ecd-354111571f3a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EchoTiming", "[", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"#", ",", 
         RowBox[{"Joined", "->", "True"}], ",", 
         RowBox[{"InterpolationOrder", "->", "0"}], ",", 
         RowBox[{"ImageSize", "->", "400"}], ",", 
         RowBox[{"Evaluate", "[", "PlotOptions", "]"}]}], "]"}], "&"}], ",", 
      RowBox[{"recur", "[", 
       RowBox[{
       "500", ",", "10000", ",", "8", ",", "0.001", ",", "0.01", ",", "0.001",
         ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", "100000"}], "]"}]}], "]"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.8898030636110573`*^9, 3.889803932922735*^9, {3.889803979266577*^9, 
   3.889803984422876*^9}, {3.8898040172989798`*^9, 3.8898040358446875`*^9}, 
   3.889804144880071*^9, 3.889804218642564*^9, {3.889804699185892*^9, 
   3.889804705158388*^9}, 3.8898047354384212`*^9, {3.8898048450320992`*^9, 
   3.8898048718728695`*^9}, 3.8898049693607883`*^9, 3.889805060330124*^9, 
   3.8898053891412764`*^9, {3.889805426564365*^9, 3.8898054304540234`*^9}, {
   3.889806109985011*^9, 3.889806111236678*^9}, {3.8898063539073734`*^9, 
   3.8898063584700513`*^9}, {3.889806404095917*^9, 3.8898064059852314`*^9}, {
   3.889806654454717*^9, 3.8898066924432793`*^9}, {3.8898069955163507`*^9, 
   3.8898069965640206`*^9}, {3.8898070846257496`*^9, 
   3.8898071142881517`*^9}, {3.8898080640015397`*^9, 3.889808065423931*^9}, {
   3.88980829999529*^9, 3.889808301173656*^9}, 3.8898083487240486`*^9, 
   3.889808394955427*^9},
 CellLabel->
  "In[204]:=",ExpressionUUID->"e26ff721-cb57-4699-9c38-e9c0e8c983e2"],

Cell[BoxData[
 FormBox["4.0124402`", TraditionalForm]], "EchoTiming",
 CellChangeTimes->{
  3.889808801569337*^9},ExpressionUUID->"237f5677-82bb-41db-b3d0-\
ece9be1cba28"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.007333333333333334], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJyF0F/sV3Mcx/E3Lmqm7WStyVx8Ci2GnfQH4dcH6Y/CkUTy56NEKfpK/9Cf
900u6OK4MbOmz5Zp4+Z0hS35MF2wZocxt58bJlvrDJvMbGZOFzrzfr5uXnvc
vfaaumbz8nXni8jJC0T+6bNpxj564/ItK+f/q27+uX572oTvfpqyo7f4c71/
//tHD0w+2Hv8wNeOO3XxJ18f6l0MfHruhMmX/vJO70kDf7Vtz4bDFx3pfcnA
Y5P+WnHki497Xzbw8TPrf932w7HebuCNY1NfmfPtp72nDby2XHrlJTM+633F
wOe99+ap3z7/oPf0gTctPvbjkqNn984YeNW4V6edONT0vnrgxYtWfzhx7tk/
rxl468GJB/78pu593cB7Zx9f+cfJ13qXA/+8bda819/d3nvmwG+dWNbOmLKp
9/UDH7pq577fTy/sPWvg73fv+vLwmQW9Zw88Nn3fivEXzuw9Z2D5T+aCbwDf
CL4JPA98M/gW8K3gMfB8sLetYLnNtoLldtsKljtsK1gW2Faw3GlbwbLQtoJl
kW0Fy2LbCpYlthUsd9lWsCy1rWBZZlvBcrdtBcs9thUs99pWsFS2PVjBCSz3
2fZgBSewLLftwQpOYLnftgcrOIFlhW0PVnACywO2PVjBCSwrbXuwghNYHrTt
wQpOYHnItgcrOIFllW0PVnACy8O2PVjBCSyrbXuwghNYHrHtwQpOYHnUtgcr
OIHlMdserOAElsdte7CCE1iCbQf24ABWcAQncAbLE7Yd2IMDWMERnMAZLGts
O7AHB7CCIziBM1jW2nZgDw5gBUdwAmewPGnbgT04gBUcwQmcwbLOtgN7cAAr
OIITOIPlKdsO7MEBrOAITuAMlqdtO7AHB7CCIziBM1jW23ZgDw5gBUdwAmew
bLDtwB4cwAqO4ATOYHnGtgN7cAArOIITOINlo20H9uAAVnAEJ3AGyybbDuzB
AazgCE7gDJZnbTuwBwewgiM4gTNYnrPtwB4cwAqO4ATOYNls24E9OIAVHMEJ
nMEysl2AHbgEe3AFDuARWME1OIIbcAK34AzuwPK87QLswCXYgytwAI/ACq7B
EdyAE7gFZ3AHli22C7ADl2APrsABPAIruAZHcANO4BacwR1YXrBdgB24BHtw
BQ7gEVjBNTiCG3ACt+AM7sCy1XYBduAS7MEVOIBHYAXX4AhuwAncgjO4A8s2
2wXYgUuwB1fgAB6BFVyDI7gBJ3ALzuAOLNttF2AHLsEeXIEDeARWcA2O4Aac
wC04gzuw7LBdgB24BHtwBQ7gEVjBNTiCG3ACt+AM7sCy03YBduAS7MEVOIBH
YAXX4AhuwAncgjO4A8uLtguwA5dgD67AATwCK7gGR3ADTuAWnMEdWF6yXYAd
uAR7cAUO4BFYwTU4ghtwArfgDO7A8rLtAuzAJdiDK3AAj8AKrsER3IATuAVn
cAeWXbYLsAOXYA+uwAE8Aiu4BkdwA07gFpzBHVh22y7ADlyCPbgCB/AIrOAa
HMENOIFbcAZ3YNljuwA7cAn24AocwCOwgmtwBDfgBG7BGdyBZa/tAuzAJdj/
v/8Gi1nBkg==
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 500.}, {0, 0.14184858151418486`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJx91H9M1GUcB3B0ZHS4MQtagUG1CCzPHKRpmzyWCmhmIqTnYDXYZWUzkRQK
4jg8r7RUfsgq4BD5ITfGhCiUC6lEQ+I4EozzhLIDUVLB4A/JGKTx/X4+/dN7
T892u71u39338zyfz/t5LGn7hjdmenh4tE9/lO//rgzf2qiB9D3i/10gtS3Q
PBxjOyw1PV8pdVGhsqqlpv+rlXokRvmlXmp6X4PUGldF8jJNo9RUzzdSz0vI
OT0e2iw11fud1JXTb3NVnJKa9tMidbi6zkhN+/1B6jPjodMVt0pN59Em9QZ1
Qz9KTefVLvVAulKQXWo6T4fUO5TjSu6Ums77J6lpdUlN/ZA7Wi24W2rql9zK
bhJyzktN/fxZarUdLrmp3z1SBynHEeiUmuYBXfPcuiFfS6R4c4uyLoDD3iss
+iDsJUHz4gKnDa4u0x/SCaUa31r0ue7JUyG3XxM0TxfBPWU75k6Up4g/lXLG
0fHz7w/20acImrdesKm3r26r324RoRbUB8499OC2mhGDoHlEX7ddPOgV84lQ
j8v8C9gQcDN2rDpP0Lz+CtateSZtxboC0elQFvrzvb4d3+sqBc3zJbDesuxS
e1Ox8FMP7Dfwggz72183HxE07+jt54qXPxVSItRyEtzgWGNeQE6ShfveD25Y
9URUWHQV9wOdumvlmgNvWQXlBd2xtCtYa6nnfqFT3u0tNORbBeVpADyV557s
uHOU+4kO+cjhXbq+RlDe0DMND/c12Mu435fBbc5jryd+Wi4oj+hVs3zCG189
yvOAbtu/0Lvz0QpBeR0ER0fF2+YsLuV5Qbfcs8Qz131YUFzQJU3uzAV1ZTxP
V8BbWlrdszNKBOUd/VB+geP4F8U8b+gH+jcm7zqWL+g+uAr2+7I+8MbuAzyP
6ObyV6Y8grIF3Rdok8EZn7U1i+d1COw5qqkvchr5PkG/qL+6OU6TyfOMti4c
XDTrbCrfN7+Dly81b7q1L4vnHe3n3Zji1Br5PkJXndC6b/kbOA/XwHGrLWdj
lhg5D+jNM756vG5wD+cBfZ+uwxa5MZ3zgKa8Z3AeroO1J00Rcz9O5TygE332
mhw5OzkP6Nl/98+xZSdzHm6AvU1Pn6y6kCZy1Tyg7cGf6T0d2ZwH9PNB/pUT
4Ymch2HwvrvjSaXDmzgPaM15o49uRiznAX2v9p0TQ861nIcRcMW89823RyM5
D2h6fj7nQW7Kw03wxPGelx+pDuc8oK8Vhu6/vP5ZzgO6NbHLa9uRRZyHP8AR
T5rjvDQvcB7Q9H8rOQ/oMeudkbtTKzgPo+B/90N5QJ9ubqqb3BnEeUCvLQn4
tnuxP+dhDOzK/NBu/etKxD9zRQhV
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 1.}, {0, 0.06878931210687893}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8898030747662497`*^9, 3.88980316317339*^9, 3.8898032022207956`*^9, 
   3.889803282267621*^9, 3.8898035461892357`*^9, 3.8898036388766084`*^9, 
   3.8898037113139553`*^9, {3.8898037642202125`*^9, 3.8898037875640945`*^9}, 
   3.889803870017923*^9, {3.889803977438258*^9, 3.88980405417336*^9}, 
   3.889804105907849*^9, {3.889804166439587*^9, 3.8898041906109495`*^9}, 
   3.889804224563392*^9, 3.8898046201882334`*^9, {3.889804696891515*^9, 
   3.889804760344762*^9}, {3.8898048478764815`*^9, 3.889804877813732*^9}, 
   3.889804972970399*^9, {3.8898050280176992`*^9, 3.8898050661733837`*^9}, 
   3.889805115658065*^9, 3.8898051487313576`*^9, 3.8898052794863186`*^9, 
   3.88980538411014*^9, {3.889805425391715*^9, 3.8898054356223354`*^9}, {
   3.889805477580185*^9, 3.8898054955646095`*^9}, {3.8898060880798583`*^9, 
   3.8898061445334764`*^9}, 3.8898061762511015`*^9, {3.8898062818296585`*^9, 
   3.889806295940265*^9}, {3.889806355361431*^9, 3.889806412514865*^9}, 
   3.889806520942385*^9, {3.8898066591724277`*^9, 3.8898067119241676`*^9}, 
   3.889807002236292*^9, {3.8898070849389777`*^9, 3.889807180984844*^9}, 
   3.889807652783532*^9, {3.889807812468644*^9, 3.889807826795971*^9}, {
   3.889807957639347*^9, 3.8898080037838335`*^9}, {3.889808062125989*^9, 
   3.889808071330502*^9}, {3.8898082974228096`*^9, 3.8898083180326953`*^9}, {
   3.889808386236308*^9, 3.889808400392544*^9}, 3.8898088016116395`*^9},
 CellLabel->
  "Out[204]=",ExpressionUUID->"570a9e81-37b4-496f-ba65-5e3d1d172c9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EchoTiming", "[", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"#", ",", 
         RowBox[{"Joined", "->", "True"}], ",", 
         RowBox[{"InterpolationOrder", "->", "0"}], ",", 
         RowBox[{"ImageSize", "->", "400"}], ",", 
         RowBox[{"Evaluate", "[", "PlotOptions", "]"}]}], "]"}], "&"}], ",", 
      RowBox[{"recur", "[", 
       RowBox[{
       "500", ",", "10000", ",", "8", ",", "0.001", ",", "0.01", ",", "0.001",
         ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", "100000"}], "]"}]}], "]"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.8898030636110573`*^9, 3.889803932922735*^9, {3.889803979266577*^9, 
   3.889803984422876*^9}, {3.8898040172989798`*^9, 3.8898040358446875`*^9}, 
   3.889804144880071*^9, 3.889804218642564*^9, {3.889804699185892*^9, 
   3.889804705158388*^9}, 3.8898047354384212`*^9, {3.8898048450320992`*^9, 
   3.8898048718728695`*^9}, 3.8898049693607883`*^9, 3.889805060330124*^9, 
   3.8898053891412764`*^9, {3.889805426564365*^9, 3.8898054304540234`*^9}, {
   3.889806109985011*^9, 3.889806111236678*^9}, {3.8898063539073734`*^9, 
   3.8898063584700513`*^9}, {3.889806404095917*^9, 3.8898064059852314`*^9}, {
   3.889806654454717*^9, 3.8898066924432793`*^9}, {3.8898069955163507`*^9, 
   3.8898069965640206`*^9}, {3.8898070846257496`*^9, 
   3.8898071142881517`*^9}, {3.8898080640015397`*^9, 3.889808065423931*^9}, {
   3.88980829999529*^9, 3.889808301173656*^9}, 3.8898083487240486`*^9, 
   3.889808394955427*^9, 3.8898085451102295`*^9},
 CellLabel->
  "In[201]:=",ExpressionUUID->"6c3d6950-eae2-4e42-b63d-f6ef9cea73bd"],

Cell[BoxData[
 FormBox["4.2790244`", TraditionalForm]], "EchoTiming",
 CellChangeTimes->{
  3.889808669689274*^9},ExpressionUUID->"23b7b475-2508-4e8c-a54d-\
ae5a957373be"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.007333333333333334], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJyFyEvMGFMYxvE3JdgZSSONWBzVSvMRhlZdPvQUX+mFjl5c2mqP1udW1aFU
0da70MQCGQlbOSzaiLSZSL6FaJojLrEQGRYiDXpWwspEuhEqIhkLHd7/f/Pk
91y0deea6Vki8vMZIn/vf9cvOd0fH/h0w7EVu/75/eme+9U7V1QH3hh8zsgL
y5NTs14+NLgY+bu3fpv8Y3M7ePbIR4ods2fO+3DwnJGPrli8YN66o4MvHPnM
g69uOmv7R4PdyOd/8c3+9e+lwXNHnvOmrvpkzweD54287ILlJ0/Mnxl8ycgT
X06sXrv0/cELRv5x7paZEwfeHTwx8sHPZ35YufHtwZeN/OvXm3/Zsu/1wZeP
fPFrp45/e1wHlyPvPXTuqd+PvTT4ypHnHz78/Z/Hdw++auRdly6aOvunbYMX
jrxy8rPpRa+EwYtGln91NXgx+BrwteDrwNeDJ8E3gG8E3wReAva2FSxLbStY
bratYLnFtoLlVtsKlinbCpZlthUst9lWsNxuW8Gy3LaCZYVtBctK2wqWVbYV
LHfYVrDcaVvBstq2gqWy7cEKTmC5y7YHKziBZY1tD1ZwAsta2x6s4ASWdbY9
WMEJLOtte7CCE1jutu3BCk5guce2Bys4geVe2x6s4ASW+2x7sIITWDbY9mAF
J7BstO3BCk5g2WTbgxWcwHK/bQ9WcALLZtserOAEli22PVjBCSzBtgN7cAAr
OIITOIPlAdsO7MEBrOAITuAMlq22HdiDA1jBEZzAGSzbbDuwBwewgiM4gTNY
HrTtwB4cwAqO4ATOYJm27cAeHMAKjuAEzmB5yLYDe3AAKziCEziD5WHbDuzB
AazgCE7gDJZHbDuwBwewgiM4gTNYHrXtwB4cwAqO4ATOYHnMtgN7cAArOIIT
OINlu20H9uAAVnAEJ3AGy+O2HdiDA1jBEZzAGSw7bDuwBwewgiM4gTNYnrDt
wB4cwAqO4ATOYNlp24E9OIAVHMEJnMFS2y7ADlyCPbgCB3ANVnADjuAWnMAd
OIN7sDxpuwA7cAn24AocwDVYwQ04gltwAnfgDO7B8pTtAuzAJdiDK3AA12AF
N+AIbsEJ3IEzuAfLLtsF2IFLsAdX4ACuwQpuwBHcghO4A2dwD5anbRdgBy7B
HlyBA7gGK7gBR3ALTuAOnME9WJ6xXYAduAR7cAUO4Bqs4AYcwS04gTtwBvdg
2W27ADtwCfbgChzANVjBDTiCW3ACd+AM7sHyrO0C7MAl2IMrcADXYAU34Ahu
wQncgTO4B8se2wXYgUuwB1fgAK7BCm7AEdyCE7gDZ3APludsF2AHLsEeXIED
uAYruAFHcAtO4A6cwT1YnrddgB24BHtwBQ7gGqzgBhzBLTiBO3AG92B5wXYB
duAS7MEVOIBrsIIbcAS34ATuwBncg2Wv7QLswCXYgytwANdgBTfgCG7BCdyB
M7gHyz7bBdiBS7AHV+AArsEKbsAR3IITuANncA+W/bYLsAOXYA+uwAFcgxXc
gCO4BSdwB87gHiwv2i7ADlyC/f/7L8iotdo=
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 500.}, {0, 0.13607863921360785`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJx91H9M1HUYB3By2OyYmaG5tEHME3SXm6E0h8VHa8ShTj2GjRDnYicMUsAN
Zx3UxKC2Ijm8gJ3QNbtTchri5MepZ4TECQTUgXEhyYmoxwlZuRFt/lh8v8/D
P7336bMx9rox7vk8z/P+RKTnJu2eFRQU1Dn9o/z+7ylYUJcwYioW/+8vpHaG
lYwbnDap6e8dUh+1Kuek1PT/6qSeMCifnJWavq9Bao3Xnveapllqque81CvS
yi5PLndJTfV+J7Vj+tu89u+lpvu0Sr1aPW1S031/kLptcvl0xe1SUz+uSJ2k
XqhDaupXp9QjJqWgLqmpn91S71PaldcjNfW7V2o6P0tN85BbrxbskZrmJbdy
m7SyPqlpnv1Sq+Pwyk3zvip1uNKOsF+kpn1ADxX7TU29RpGZoZwBsPnektbK
qiJB++IF63zvmfe+nC+UahbUoR+HVWzvXLFT0D79Cj71sT3W7X5H/K2UM4me
qYf2bRAcsmYgY/JUmohTC7oG1j6cFV0/O13QPqLnDY63ZHjThdqukiFw2cHn
slv25Ana19/AJ1yzffOHToqebuWgE642h6dWnxO0z9fBft3SmJBIi1ioNmwY
nLP3zUBpoUXQvqOb8ooTj3RYhFpOmg/8Rt/del3MYZ77DfDtJ6ujO3aX8zzQ
Xc/fMXZtOiooL+i535y7FKi08rzQMdsL9fF6q6A8jYDv7xl9+8DXTp4numMq
8WbFu02C8obeeGXs6fXH7Dzvm2BRbtN5kh2C8oh2dz7aFRVSzfuALt06nPn6
S1WC8joKnur/6yuDpYL3Bb3YtNVky6kQFBf0580hLQ8ra3ifboGze+eY1863
Cso7Ondo03pjrYP3Df3tW4/HYmtOC3oPboNbtzSmaDce5n1Er7LHTQTvNAt6
L9DJiTVuw1oz7+sd8PHU+k/yV5n5PUEPaqK1x5eW8j6jXwz4izLPfMrvjR+8
3xmwBYcW8L6jtyzyhI6OHOL3CJ1iOf2j1/kR52EMfNH3gmHHU1bOA7o/ytXu
n8riPKC9Pk9EvD2H84B2P1vQcHF/NuchAL7x6qOBUFMW5wE9815RHtDrinIf
VA6nch7ughtr37f9dH+XMKt5QHs/KOyq/cfIeUCn77t+LSv2Q87DODhhzY7G
ZU3bOA/oZ9ZtWBR8aDPnAb1SM3ik5+wGzsMEuCFemxCtj+Q8oOMiS5LnaCI4
D+jLrgtnHuSHcx5+B/s+S9K1O5I5D+gDo4nHjBY95wFN/Y7lPNwDa/oOzkt5
YjXnAV0+t7vNVRXFeUDTPLSchz/AM/elPKBn7kt5QG/+csklzyuLOQ9/gun7
bsX9Cxm0FDE=
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 1.}, {0, 0.0962290377096229}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.889808550157015*^9, 3.889808669736145*^9},
 CellLabel->
  "Out[201]=",ExpressionUUID->"740bf1b5-489d-4ff5-817e-0a8c44a0f3df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EchoTiming", "[", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"#", ",", 
         RowBox[{"Joined", "->", "True"}], ",", 
         RowBox[{"InterpolationOrder", "->", "0"}], ",", 
         RowBox[{"ImageSize", "->", "400"}], ",", 
         RowBox[{"Evaluate", "[", "PlotOptions", "]"}]}], "]"}], "&"}], ",", 
      RowBox[{"recur", "[", 
       RowBox[{
       "500", ",", "10000", ",", "8", ",", "0.001", ",", "0.01", ",", "0.001",
         ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", 
        SuperscriptBox["10.", 
         RowBox[{"-", "5"}]], ",", "1000000"}], "]"}]}], "]"}], "}"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.8898030636110573`*^9, 3.889803932922735*^9, {3.889803979266577*^9, 
   3.889803984422876*^9}, {3.8898040172989798`*^9, 3.8898040358446875`*^9}, 
   3.889804144880071*^9, 3.889804218642564*^9, {3.889804699185892*^9, 
   3.889804705158388*^9}, 3.8898047354384212`*^9, {3.8898048450320992`*^9, 
   3.8898048718728695`*^9}, 3.8898049693607883`*^9, 3.889805060330124*^9, 
   3.8898053891412764`*^9, {3.889805426564365*^9, 3.8898054304540234`*^9}, {
   3.889806109985011*^9, 3.889806111236678*^9}, {3.8898063539073734`*^9, 
   3.8898063584700513`*^9}, {3.889806404095917*^9, 3.8898064059852314`*^9}, {
   3.889806654454717*^9, 3.8898066924432793`*^9}, {3.8898069955163507`*^9, 
   3.8898069965640206`*^9}, {3.8898070846257496`*^9, 
   3.8898071142881517`*^9}, {3.8898080640015397`*^9, 3.889808065423931*^9}, {
   3.88980829999529*^9, 3.889808301173656*^9}, 3.8898083487240486`*^9, {
   3.889808394955427*^9, 3.8898083965289555`*^9}, 3.889808460016838*^9},
 CellLabel->
  "In[197]:=",ExpressionUUID->"e021bdc4-3306-4b8b-8c1e-ae16153de019"],

Cell[BoxData[
 FormBox["37.3994294`", TraditionalForm]], "EchoTiming",
 CellChangeTimes->{
  3.889808497661023*^9},ExpressionUUID->"415434a9-c387-43d8-8f21-\
a5e676921bbc"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.007333333333333334], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJyFzEuoF2UYx/EHLRNBm0VXM3hNyQqJOWUXLyffTLuY2mimZVavlXbTHM27
lk8L2wUTlBBGzIEows0EeQzLfNvUsv8iIirkJQg6EDGEga2KaFzk0PP9bn58
Nr/pT25dtXGciIyNF/lnzzVl+MjBkXnDC/9Vu/B8t68uu+yvLZs6iz/f62cM
jZ49dqjzxJ4/GLn6x2WjI52znvcuOXbB2NGjnS/pefGMWSs+3X6s8xU9/3l6
52/TD37WeVrPv//wy9sTvjzZ2fV8UXv80qn7TnW+puczR/PV62ef+5vZ86Rf
J6/8Y/yJztf2/Mnqxd+Pm/tx5+t63j3+3VnD65rON/T84ejF+/e/9V7n2T0P
/3TVV2vSkc439jzt60MLTu2qOuc9Xzj1zOTDV77Weajn4xu+OPHtgQOdb+p5
+c9jE09O2dz55p73vT56fNHZtZ3n9Lxo6PodEyYUnW/pedvnh795//TSzrf2
PTb/jVl+Tufben7n2Mi47z4a6nx7z3suTxsmvTmz89ye5T/NA88HLwAPg+8A
LwR72wqWO20rWBbZVrDcZVvBsti2gmWJbQXL3bYVLPfYVrDca1vBcp9tBctS
2wqW+20rWJbZVrAst61gWWFbwfKAbQVLYduDFRzBstK2Bys4gmWVbQ9WcATL
g7Y9WMERLKtte7CCI1gesu3BCo5gWWPbgxUcwbLWtgcrOILlYdserOAIlkds
e7CCI1jW2fZgBUewPGrbgxUcwbLetgcrOILlMdserOAIlsdte7CCI1iesO3B
Co5gCbYd2IMDWME1OIITWDbYdmAPDmAF1+AITmB50rYDe3AAK7gGR3ACy1O2
HdiDA1jBNTiCE1ietu3AHhzACq7BEZzAstG2A3twACu4BkdwAssm2w7swQGs
4BocwQksz9h2YA8OYAXX4AhOYHnWtgN7cAAruAZHcALLc7Yd2IMDWME1OIIT
WJ637cAeHMAKrsERnMDygm0H9uAAVnANjuAEls22HdiDA1jBNTiCE1i22HZg
Dw5gBdfgCE5gedG2A3twACu4BkdwAstW2w7swQGs4BocwQkspe0M7MA52IML
cACXYAVX4BrcgCN4AE7gFizbbGdgB87BHlyAA7gEK7gC1+AGHMEDcAK3YNlu
OwM7cA724AIcwCVYwRW4BjfgCB6AE7gFy0u2M7AD52APLsABXIIVXIFrcAOO
4AE4gVuw7LCdgR04B3twAQ7gEqzgClyDG3AED8AJ3IJlp+0M7MA52IMLcACX
YAVX4BrcgCN4AE7gFiy7bGdgB87BHlyAA7gEK7gC1+AGHMEDcAK3YNltOwM7
cA724AIcwCVYwRW4BjfgCB6AE7gFyx7bGdiBc7AHF+AALsEKrsA1uAFH8ACc
wC1Y9trOwA6cgz24AAdwCVZwBa7BDTiCB+AEbsGyz3YGduAc7MEFOIBLsIIr
cA1uwBE8ACdwC5b9tjOwA+dgDy7AAVyCFVyBa3ADjuABOIFbsBywnYEdOAd7
cAEO4BKs4ApcgxtwBA/ACdyC5WXbGdiBc7AHF+AALsEKrsA1uAFH8ACcwC1Y
XrGdgR04B3twAQ7gEqzgClyDG3AED8AJ3ILloO0M7MA52P+//wYp0tls
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 500.}, {0, 0.12295687704312296`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
          1.5], LineBox[CompressedData["
1:eJx91G1Mk1cUB/CGDzMDaoxDhwpYUJZiHA5hVmnpxZnGbWaOIpFo2NY4VJyM
wVjC7Epw0oJAOqvjJVjBUopIIq0YlG4CIr5WkKAFKwOZnUwEiy8bxW1gNp7n
nn3Zyd1NmubXNO15zjn/G7rji8SdPgKBwDH74t7/e74JsG50q7Xk/13KtD1E
91hpr2aaft/C9NFK7jQwTX/PyrRHyX3SxDT9v2amfV21mXG+LUzTen5gOiLl
UKdX3Mo0rbedacvsv7lqO5imz3OR6Wj+XGKaPu9lpi95xbMVX2Ga9uMa04n8
A11nmvbLwbRbzRV0g2naz26ms7h2Zd5kmva7h2l6epmm82D7Xb7gW0zTebHN
PU3KodvIjVofZ3u8iNB5OpGPFc8okhPWEn4cLuyT1be+0nwZQ+i8+5Ajhge2
SVWbyVKuHSH9yOsldRdjBJsI3Qdsccxyp2yZkuzexZ07yH9sGGla2KwidF9c
yEf3rw4f//MzwlUTYMVOTQ9M2qzPIXSf7iIrti52ZyfmkSmuHC/2k8KRkePe
/YTu2wDylTyV7x6vjsj5gn5Cno79rvVjm4HQfcQeXB5SHCc1EL5dukHk0Uhj
siy+gtB9HUI2Ffi5+6fKyc1u7mDnhJWLdA9qCN3ne8hFb3/61oq8arKAb9gw
sr7ivS3mIAuh+46t9RNGFxSaCF9Oys/IZZqN2eq5/97T95Ej7Blz5yTVwzyw
FcHBHc4mM6F5wTYPxMx/3nUS5oU9fe5s/GCLmdA8uZGHXi0NyugzwzyxBdtb
petDGgjNG/Yr77f8+OwdM8z7F+TMsQNR2mUmQvOIXX/YR288Xwf7gJ3h+/qb
0k0myOsDZL8zJeP3XjPCvmCvu7M2Nz+sCvKMPRkgrHXkW2CfRpD9t8x5WT5Q
AXnHTpvc0/nXmlLYN+zz2+evkp8og/vgV+RPgitHkyONsI/YLZWav0u/NsB9
gd3rzfnA01MM+/oQuUBbY+tPK4L7BLu97XqG0lYC+4ytbTzuIzlWBPfNKHJW
SY/qblIu7Dt2+IXU2BmhGu4jbHm4fWzft/sgD4+QLwfsPVK2RgN5wA4qqjrT
dVgHecC+33zEJhFmQR6wZZpFouzv0yAPY8gloSs/EvanQh6wvb1dB7zdOyAP
2CcunJpnyFVBHsaRRVVRk3VyFTHwecB22TxR5zwJkAfsR1t3pUdXSCEPj5Hd
4k5jwgYp5AH7txdh6ZLb6yAP2B0vA1dY/GWQBw+yUp+1oLsxHvKAbY20b2vL
jYM8YDsc6ofihmjIwwSyTjCvz5okgTxgS+vbh36fDIU8YOfrX1j0ny+CPDxB
tthNC2MtgZAH7BrFwdHAtsWQB2yR/8yHBx1LIA9PkZe80fVcMb0U8oC9N/L0
053OUMgD9vDZhvRVKRNymodnyBO7ZYVTV0/L/wG/xymb
           "]]}}, {{}, {}}},
       AspectRatio->0.8,
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       AxesStyle->AbsoluteThickness[0.5],
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       LabelStyle->Directive[
        FontFamily -> "Arial", FontSize -> 12, FontColor -> GrayLevel[0]],
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 1.}, {0, 0.04905895094104906}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.02], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.8898084081574206`*^9, 3.8898084977054567`*^9},
 CellLabel->
  "Out[197]=",ExpressionUUID->"03ba0f0a-d0d8-4a10-9e3b-b145e600590c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"compHistograms", "[", 
   RowBox[{
   "totalsims_", ",", "simlen_", ",", "Amax_", ",", "lastkdocompleted_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "nblocks", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nblocks", "=", 
      RowBox[{"Ceiling", "[", 
       RowBox[{"totalsims", "/", "1000"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"kdo", "=", "lastkdocompleted"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"kdo", "++"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<kdo = \>\"", "<>", 
          RowBox[{"ToString", "[", "kdo", "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"dat", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"SetSharedVariable", "[", "dat", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ndat", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"SetSharedVariable", "[", "ndat", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "=", "1000"}], ",", "t"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ParallelDo", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Block", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"params", ",", "w", ",", 
                 RowBox[{"savebool", "=", "False"}], ",", "k"}], "}"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"params", "=", 
                 RowBox[{"10.", "^", 
                  RowBox[{"RandomReal", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "8"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", "5"}], "]"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"w", "=", 
                 RowBox[{"recur", "[", 
                  RowBox[{"4", ",", "Amax", ",", "8", ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], ",", 
                   RowBox[{"Max", "[", 
                    RowBox[{"50000", ",", 
                    RowBox[{"Round", "[", 
                    RowBox[{"simlen", "/", "10"}], "]"}]}], "]"}]}], "]"}]}], 
                ";", "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"w", "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "==", 
                   "0"}], ",", 
                  RowBox[{"Continue", "[", "]"}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"k", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"ndat", "++"}], ")"}], "+", "1"}]}], ")"}], ",", 
                    "100"}], "]"}], "==", "0"}], ",", 
                  RowBox[{"savebool", "=", "True"}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"t", "=", 
                 RowBox[{
                  RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"w", "=", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{"Function", "[", 
                    RowBox[{"R", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"{", 
                    RowBox[{"params", ",", 
                    RowBox[{"{", 
                    RowBox[{"Amax", ",", "8", ",", "simlen"}], "}"}]}], "}"}],
                     "]"}], ",", "R", ",", 
                    RowBox[{"recur", "[", 
                    RowBox[{"R", ",", "Amax", ",", "8", ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], ",", "simlen"}], "]"}]}], 
                    "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    "4", ",", "10", ",", "15", ",", "30", ",", "50", ",", 
                    "75", ",", "100", ",", "250", ",", "500", ",", "1000"}], 
                    "}"}]}], "]"}], "}"}], ",", "1"}], "]"}]}], ";"}], 
                   "\[IndentingNewLine]", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"dat", "=", 
                 RowBox[{"Join", "[", 
                  RowBox[{"dat", ",", "w"}], "]"}]}], ";"}]}], 
              "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
             RowBox[{"{", "n", "}"}], ",", 
             RowBox[{"Method", "->", "\"\<FinestGrained\>\""}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"Export", "[", 
             RowBox[{"(*", 
              RowBox[{
              "BigDataPath", "<>", 
               "\"\<CICR Fission Model\\\\Histograms 1000K\\\\dat\>\"", "<>", 
               RowBox[{"ToString", "[", 
                RowBox[{"Amax", "/", "1000"}], "]"}], "<>", "\"\<K_\>\"", "<>", 
               RowBox[{"ToString", "[", "kdo", "]"}], "<>", "\"\<.mdat\>\""}],
               "*)"}], 
             RowBox[{
              RowBox[{
              "BigDataPath", "<>", 
               "\"\<CICR Fission Model\\\\Histograms 1000K\\\\dat\>\"", "<>", 
               "$MachineName", "<>", 
               RowBox[{"ToString", "[", 
                RowBox[{"Amax", "/", "1000"}], "]"}], "<>", "\"\<K_\>\"", "<>", 
               RowBox[{"ToString", "[", "kdo", "]"}], "<>", "\"\<.mdat\>\""}],
               ",", 
              RowBox[{"ToString", "[", 
               RowBox[{"InputForm", "[", "dat", "]"}], "]"}], ",", 
              "\"\<Text\>\"", ",", 
              RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}], 
            "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
       ",", 
       RowBox[{"{", "nblocks", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.890389204500347*^9, 3.890389378845211*^9}, {
   3.890389433234579*^9, 3.8903894748594522`*^9}, {3.8903895093770723`*^9, 
   3.890389553844961*^9}, {3.890389596078426*^9, 3.890389644424739*^9}, {
   3.890389747203458*^9, 3.890389757531369*^9}, {3.890389912564471*^9, 
   3.89038992756413*^9}, 3.890390609422178*^9, {3.8922049014332*^9, 
   3.89220490940152*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"0eee2efd-5d17-4ecc-90b9-800950325301"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compHistograms", "[", 
   RowBox[{"totalsims_", ",", "simlen_", ",", "Amax_"}], "]"}], ":=", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"totalsims", ",", "simlen", ",", "Amax", ",", "0"}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8903897214204435`*^9, 3.8903897453904943`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"aaf70acc-3a1b-4e86-a502-934108c8fa5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compSpecificHistograms", "[", 
   RowBox[{"dir_", ",", "paramslist_", ",", "simlen_", ",", "Amax_"}], "]"}], 
  ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dat", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"SetSharedVariable", "[", "dat", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"ParallelMap", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{"params", ",", "\[IndentingNewLine]", 
         RowBox[{"Block", "[", 
          RowBox[{
           RowBox[{"{", "w", "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"w", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"Map", "[", 
                 RowBox[{
                  RowBox[{"Function", "[", 
                   RowBox[{"R", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"params", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", "5"}], "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"Amax", ",", "8", ",", "simlen"}], "}"}]}], "}"}],
                     "]"}], ",", "R", ",", 
                    RowBox[{"recur", "[", 
                    RowBox[{"R", ",", "Amax", ",", "8", ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], ",", "simlen"}], "]"}]}], 
                    "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "4", ",", "10", ",", "15", ",", "30", ",", "50", ",", "75",
                     ",", "100", ",", "250", ",", "500", ",", "1000"}], 
                   "}"}]}], "]"}], "}"}], ",", "1"}], "]"}]}], ";", 
            RowBox[{"dat", "=", 
             RowBox[{"Join", "[", 
              RowBox[{"dat", ",", "w"}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
       "paramslist", ",", 
       RowBox[{"Method", "->", "\"\<FinestGrained\>\""}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"Export", "[", 
       RowBox[{
        RowBox[{"dir", "<>", "\"\<dat.mdat\>\""}], ",", 
        RowBox[{"ToString", "[", 
         RowBox[{"InputForm", "[", "dat", "]"}], "]"}], ",", "\"\<Text\>\"", 
        ",", 
        RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.890389204500347*^9, 3.890389378845211*^9}, {
   3.890389433234579*^9, 3.8903894748594522`*^9}, {3.8903895093770723`*^9, 
   3.890389553844961*^9}, {3.890389596078426*^9, 3.890389644424739*^9}, {
   3.890389747203458*^9, 3.890389757531369*^9}, {3.890389912564471*^9, 
   3.89038992756413*^9}, 3.890390609422178*^9, {3.8922049014332*^9, 
   3.89220490940152*^9}, {3.893508990565667*^9, 3.8935089968733673`*^9}, {
   3.8935090492335157`*^9, 3.893509058113942*^9}, {3.8935090886018324`*^9, 
   3.893509170440207*^9}, {3.8935092225773*^9, 3.8935092700415916`*^9}, {
   3.893509304843427*^9, 3.893509364303365*^9}, {3.8935094378651743`*^9, 
   3.893509492544719*^9}, 3.893509522942917*^9, {3.8935100452928624`*^9, 
   3.8935101126641555`*^9}, {3.8935103332671113`*^9, 3.8935103342432384`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"70da6ba0-b0ad-4e56-971b-fd57aa4b3560"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compHistogramsX", "[", 
   RowBox[{
   "nryrs_", ",", "nryrs2_", ",", "totalsims_", ",", "simlen_", ",", "Amax_", 
    ",", "lastkdocompleted_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "nblocks", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nblocks", "=", 
      RowBox[{"Ceiling", "[", 
       RowBox[{"totalsims", "/", "1000"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"kdo", "=", "lastkdocompleted"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"kdo", "++"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<kdo = \>\"", "<>", 
          RowBox[{"ToString", "[", "kdo", "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"dat", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"SetSharedVariable", "[", "dat", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ndat", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"SetSharedVariable", "[", "ndat", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "=", "1000"}], ",", "t"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ParallelDo", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Block", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"params", ",", "w", ",", 
                 RowBox[{"savebool", "=", "False"}], ",", "k", ",", "q"}], 
                "}"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"params", "=", 
                 RowBox[{"10.", "^", 
                  RowBox[{"RandomReal", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "8"}], ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", "5"}], "]"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"w", "=", 
                 RowBox[{"recur", "[", 
                  RowBox[{"nryrs", ",", "Amax", ",", "8", ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], ",", 
                   RowBox[{"params", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], ",", "simlen"}], "]"}]}], 
                ";", "\[IndentingNewLine]", 
                RowBox[{"q", "=", 
                 RowBox[{"compCDF", "[", 
                  RowBox[{"w", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"q", "=", 
                 RowBox[{"quantile", "[", 
                  RowBox[{"q", ",", 
                   RowBox[{"{", 
                    RowBox[{"0.01", ",", "0.5", ",", "0.99"}], "}"}]}], 
                  "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"q", "=", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"q", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "-", 
                    RowBox[{"q", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"q", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"q", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"q", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "-", 
                    RowBox[{"q", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}]}], ";",
                 "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                  RowBox[{"Print", "[", 
                   RowBox[{"q", "-", "\[Theta]PlotCenter"}], "]"}], ";"}], 
                 "*)"}], "\[IndentingNewLine]", 
                RowBox[{"q", "=", 
                 RowBox[{"convertMathPolar", "[", 
                  RowBox[{
                   RowBox[{"ToPolarCoordinates", "[", 
                    RowBox[{"q", "-", "\[Theta]PlotCenter"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"q", "=", 
                 RowBox[{"0", "<=", "q", "<=", 
                  RowBox[{"\[Pi]", "/", "2"}]}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                  RowBox[{"Print", "[", "q", "]"}], ";"}], "*)"}], 
                "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"!", "q"}], ",", 
                  RowBox[{"Continue", "[", "]"}], ",", 
                  RowBox[{"q", "=", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"{", 
                    RowBox[{"params", ",", 
                    RowBox[{"{", 
                    RowBox[{"Amax", ",", "8", ",", "simlen"}], "}"}]}], "}"}],
                     "]"}], ",", "nryrs", ",", "w"}], "}"}]}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"t", "=", 
                 RowBox[{
                  RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", 
                   RowBox[{"w", "=", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{"q", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"{", 
                    RowBox[{"params", ",", 
                    RowBox[{"{", 
                    RowBox[{"Amax", ",", "8", ",", "simlen"}], "}"}]}], "}"}],
                     "]"}], ",", "nryrs2", ",", 
                    RowBox[{"recur", "[", 
                    RowBox[{"nryrs2", ",", "Amax", ",", "8", ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], ",", 
                    RowBox[{"params", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], ",", "simlen"}], "]"}]}], 
                    "}"}]}], "}"}], "}"}], ",", "1"}], "]"}]}], 
                   "\[IndentingNewLine]", "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"dat", "=", 
                 RowBox[{"Join", "[", 
                  RowBox[{"dat", ",", "w"}], "]"}]}], ";"}]}], 
              "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
             RowBox[{"{", "n", "}"}], ",", 
             RowBox[{"Method", "->", "\"\<FinestGrained\>\""}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"Export", "[", 
             RowBox[{
              RowBox[{
              "BigDataPath", "<>", 
               "\"\<CICR Fission Model\\\\Histograms \>\"", "<>", 
               RowBox[{"ToString", "[", "nryrs", "]"}], "<>", 
               "\"\<Q1 to \>\"", "<>", 
               RowBox[{"ToString", "[", "nryrs2", "]"}], "<>", 
               "\"\<\\\\dat\>\"", "<>", "$MachineName", "<>", 
               RowBox[{"ToString", "[", 
                RowBox[{"Amax", "/", "1000"}], "]"}], "<>", "\"\<K_\>\"", "<>", 
               RowBox[{"ToString", "[", "kdo", "]"}], "<>", "\"\<.mdat\>\""}],
               ",", 
              RowBox[{"ToString", "[", 
               RowBox[{"InputForm", "[", "dat", "]"}], "]"}], ",", 
              "\"\<Text\>\"", ",", 
              RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}], 
            "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
       ",", 
       RowBox[{"{", "nblocks", "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.890389204500347*^9, 3.890389378845211*^9}, {
   3.890389433234579*^9, 3.8903894748594522`*^9}, {3.8903895093770723`*^9, 
   3.890389553844961*^9}, {3.890389596078426*^9, 3.890389644424739*^9}, {
   3.890389747203458*^9, 3.890389757531369*^9}, {3.890389912564471*^9, 
   3.89038992756413*^9}, 3.890390609422178*^9, {3.8922049014332*^9, 
   3.89220490940152*^9}, 3.8941025153060536`*^9, {3.894102583327172*^9, 
   3.8941026298782787`*^9}, {3.894102671552209*^9, 3.8941026866770706`*^9}, {
   3.8941028057117834`*^9, 3.8941028144726667`*^9}, {3.8941028652318373`*^9, 
   3.894102874973947*^9}, 3.8941029601933336`*^9, {3.894103078211934*^9, 
   3.8941031037818656`*^9}, {3.894103173991682*^9, 3.8941032461067276`*^9}, {
   3.894103287516226*^9, 3.8941033748016777`*^9}, {3.8941034096461115`*^9, 
   3.894103462915905*^9}, {3.8941034948213634`*^9, 3.894103556561466*^9}, {
   3.8941036086316185`*^9, 3.8941036131531544`*^9}, 3.8941036687776346`*^9, {
   3.894104044352352*^9, 3.8941040706030483`*^9}, {3.8941041763409615`*^9, 
   3.8941041839820595`*^9}, {3.894104324099909*^9, 3.8941043306734753`*^9}, {
   3.8941051774845495`*^9, 3.8941052032476234`*^9}, {3.8941052359605007`*^9, 
   3.894105237890135*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"368ce495-4747-4e9f-8ea1-090c1aae77d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]PlotCenter", "=", 
   RowBox[{"{", 
    RowBox[{"0.25", ",", "0.75"}], "}"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.892635484968627*^9, 3.892635493124896*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"50673311-3563-4ba9-bf63-bff4111c583b"],

Cell["\<\

Run the simulations

\
\>", "Text",
 CellChangeTimes->{{3.887362479460453*^9, 3.887362479835428*^9}, {
  3.8995479779115715`*^9, 3.8995479987037845`*^9}, {3.899548072523324*^9, 
  3.899548074998187*^9}},
 Background->RGBColor[
  1, 0.5, 0],ExpressionUUID->"1139ad0e-9825-4274-865c-81fe442ad16c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", "=", 
     RowBox[{"RandomReal", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", "100"}], "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "BigDataPath", "<>", 
      "\"\<CICR Fission Model\\\\Histograms 10mil nRyR 30\\\\dat.mdat\>\""}], 
     ",", 
     RowBox[{"ToString", "[", 
      RowBox[{"InputForm", "[", "dat", "]"}], "]"}], ",", "\"\<Text\>\"", ",", 
     RowBox[{"OverwriteTarget", "\[Rule]", "True"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.893509540796587*^9, 3.893509569612821*^9}},
 CellLabel->
  "In[360]:=",ExpressionUUID->"f177041b-8779-4dcc-b720-95a8b5648b94"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 10mil nRyR 30\\\\dat.mdat\"\>", 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.8935095711666064`*^9},
 CellLabel->
  "Out[360]=",ExpressionUUID->"c863b38a-5ced-4bce-99b1-dca7ff146b9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{"thou", ",", "10"}], "]"}], "==", "0"}], ",", 
      RowBox[{"restartKernels", "[", "8", "]"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"compHistograms", "[", 
     RowBox[{"1000", ",", "1000000", ",", "10000", ",", "thou"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"compHistograms", "[", 
     RowBox[{"1000", ",", "1000000", ",", "100000", ",", "thou"}], "]"}], 
    ";"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"thou", ",", "0", ",", "99"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892204965623459*^9, 3.8922049979341197`*^9}, {
   3.8922050337758417`*^9, 3.892205037041288*^9}, {3.8922051013657303`*^9, 
   3.892205163252859*^9}, {3.8922071790446043`*^9, 3.8922071961373816`*^9}, 
   3.892207360503022*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"67759784-7c2f-4951-a238-ab93a164e97b"],

Cell[BoxData[
 FormBox["\<\"kdo = 1\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892207250462411*^9, 3.8922073649090214`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"2a584e97-f43b-4e56-ab9b-44e441d76c95"],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.892207343035265*^9, 3.8922074452025576`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"37f20d16-55e8-4af4-aadd-02c73f313365"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"9000", ",", "1000000", ",", "10000", ",", "1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390606438443*^9}, {3.890390825672656*^9, 
   3.8903908268753023`*^9}, {3.8904228112956843`*^9, 3.8904228141392355`*^9}, 
   3.8904232833259125`*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"50f355ac-9e81-4227-bca9-bc91522e82e9"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_3.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8904621655387135`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"3fd2b104-620b-49da-aebb-737b01db4179"],

Cell[BoxData[
 FormBox["\<\"kdo = 4\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890462165554338*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"f381e72f-b910-4256-b25f-b1e8c8dd087f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_4.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890483624446328*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"794af2cb-0bb0-444e-bfd3-906adfd27518"],

Cell[BoxData[
 FormBox["\<\"kdo = 5\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8904836244619536`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"94969135-cdbe-4764-b30f-a557195e8be8"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_5.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905080489074316`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"e46d685d-aa2c-48c6-9987-2c05d2aa5b73"],

Cell[BoxData[
 FormBox["\<\"kdo = 6\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905080489074316`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"78623178-1185-4b66-ad8d-5b187d47ac09"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_6.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905292044940405`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"0d856156-e886-40df-838f-6becf575fede"],

Cell[BoxData[
 FormBox["\<\"kdo = 7\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905292044940405`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"5c079b68-da00-4253-ad63-4d0ec1792c76"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_7.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905491404087534`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"2b0d8313-902a-4c16-ac83-40798ac44f9f"],

Cell[BoxData[
 FormBox["\<\"kdo = 8\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905491404243774`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"af77836f-d9d1-4803-861e-16055f2c63a1"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_8.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905699527905235`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"059cedd3-d5e4-4834-a325-ca918f675d2a"],

Cell[BoxData[
 FormBox["\<\"kdo = 9\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8905699528061485`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"ab606389-2c5b-4b04-8701-b7843eca3e43"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_9.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890590526402133*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"63922452-5410-4d30-901b-906fc33ef1d3"],

Cell[BoxData[
 FormBox["\<\"kdo = 10\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890590526417757*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"d4a6d251-2483-466d-afbf-79c411fd40a6"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_10.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890612426040119*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"b156a9c2-c2c0-42a7-86e9-d80a8f46190f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "100000"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.8903906396875057`*^9}, 3.8903908308137865`*^9, 
   3.890422815342286*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"cad9997d-8682-4af5-b622-1c79c2dcdf3a"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 1\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8906124423046403`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"862a8281-7255-4143-801d-27fb63341beb"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_1.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890635176919796*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"364574f5-adcd-4b6d-b9d3-faffd9c02ace"],

Cell[BoxData[
 FormBox["\<\"kdo = 2\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8906351769354153`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"3cf3605a-4efd-4666-bdef-4c40b83c0633"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_2.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89065467456538*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"efd405c0-07ed-44e9-a8b0-ce7e6d23140f"],

Cell[BoxData[
 FormBox["\<\"kdo = 3\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890654674581005*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"e8aefe04-d127-4e8c-a255-c119b4a56ee3"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_3.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8906747432369967`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"2b415b4b-25b3-4b42-8d3e-bbc722cb3e2f"],

Cell[BoxData[
 FormBox["\<\"kdo = 4\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8906747432369967`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"ea45dd64-91c8-4db0-9ed2-5f2edd8b400f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_4.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89069578700629*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"24eb14dd-ad77-4a6e-aa8b-d5594e878286"],

Cell[BoxData[
 FormBox["\<\"kdo = 5\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890695787021905*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"cd3403d8-bc55-43af-9642-a9774a5da5cf"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_5.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907161514068594`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"32ae8eb8-f9c3-47ff-8cdf-ce3e5df3a4a3"],

Cell[BoxData[
 FormBox["\<\"kdo = 6\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907161514068594`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"867952f4-bcd8-47de-ba03-80a03e6ad4aa"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_6.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890739105805177*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"621c1830-881d-47d0-a54e-9abee75bf696"],

Cell[BoxData[
 FormBox["\<\"kdo = 7\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907391058208017`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"f867eb96-a4e1-4e40-a607-f9a7dc7e431d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_7.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907614372128496`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"d37c8b54-3e09-4409-a59a-28addd6f37df"],

Cell[BoxData[
 FormBox["\<\"kdo = 8\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890761437228468*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"b049b12e-b071-48d1-98e9-64b4c2b9b288"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_8.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907815912781353`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"73d53d65-73ae-48e5-8b95-1626b3309b29"],

Cell[BoxData[
 FormBox["\<\"kdo = 9\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8907815912781353`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"ce3224e8-c2c8-420a-9969-84f1210a58dc"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_9.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908041393866453`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"c2936483-20bd-42bd-9e2c-69d046b34f87"],

Cell[BoxData[
 FormBox["\<\"kdo = 10\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908041393866453`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"d4c18c0f-51ed-47b1-8785-619f38dd5596"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_10.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908245199373417`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"7049d7de-43b7-4ef2-bda9-a1e613110364"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "10000", ",", "10"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390606438443*^9}, {3.890390663812601*^9, 
   3.890390664329313*^9}, 3.8903908317183905`*^9, {3.8904228181233406`*^9, 
   3.890422819373253*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"51c22001-051f-4811-8d69-68fb477abf09"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 11\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890824539685989*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"5182664a-dead-4925-a34b-6423c66a018f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_11.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890847626001113*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"b89159fb-e332-4774-8ab7-e77531813898"],

Cell[BoxData[
 FormBox["\<\"kdo = 12\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908476260167575`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"f299eeed-3e77-45e7-9cfe-0356253acc1d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_12.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890869532107774*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"399b31a4-d88a-4c2f-a52e-5eba02c4acea"],

Cell[BoxData[
 FormBox["\<\"kdo = 13\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908695321234055`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"6bb71ac1-d570-4906-ae9f-717c82a0416c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_13.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908926590810623`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"011bebbb-752c-402d-8fac-35173ae7e7b9"],

Cell[BoxData[
 FormBox["\<\"kdo = 14\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8908926590810623`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"2034f386-fed6-4eaf-b784-c31924428e75"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_14.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890913686997277*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"8690256f-ce57-4a2e-8b2b-11c78985bed5"],

Cell[BoxData[
 FormBox["\<\"kdo = 15\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.890913687012893*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"964edd65-dd50-4159-b5e0-6fbc68bc528a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_15.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909364069472704`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"1cc376d3-6c8b-45b8-86f6-307efb1d161a"],

Cell[BoxData[
 FormBox["\<\"kdo = 16\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909364069785204`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"31b49907-99b2-4ec4-aef1-d9465e228634"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_16.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909575286244946`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"424347e0-af35-45db-8a44-4aa45870b9a5"],

Cell[BoxData[
 FormBox["\<\"kdo = 17\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909575286401186`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"798db19e-9ac5-425d-87a5-c2fce20566f3"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_17.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909771963880763`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"6b957669-b381-4652-b3bd-540bfe2edee0"],

Cell[BoxData[
 FormBox["\<\"kdo = 18\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909771963880763`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"1ed89525-95af-444c-acfe-2e0277539248"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_18.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909975146060123`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"591587b5-db53-465c-9e44-44460ed04420"],

Cell[BoxData[
 FormBox["\<\"kdo = 19\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8909975146216364`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"afb1acff-27ad-4a7c-9eda-560ddc17cc5c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_19.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8910186125244055`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"a18a435c-f9b2-422c-9473-37cce137a865"],

Cell[BoxData[
 FormBox["\<\"kdo = 20\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8910186125244055`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"1d9373d5-8999-45c7-9a7b-5f0ff4adb318"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_20.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891040443928496*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"c61e0c69-ff3d-436d-84f2-86959d4560b3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "100000", ",", "10"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.890390832438863*^9, {
   3.8904228203731856`*^9, 3.890422821873083*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"0de020f6-5e56-4930-9f44-35afdb029180"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 11\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891040458911846*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"b4610fba-f136-406a-99c3-d930e2a79cdc"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_11.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891063414880014*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"b84feaf9-0051-45d7-bbb9-5b8a6b0410d6"],

Cell[BoxData[
 FormBox["\<\"kdo = 12\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8910634148956404`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"ec1f126b-6283-4e33-94e3-4f8784fe8ac5"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_12.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891087126866769*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"c25ccee5-1775-4aef-b80f-e6e54f68d335"],

Cell[BoxData[
 FormBox["\<\"kdo = 13\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891087126866769*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"ce6bfd76-d41c-4c99-9bbc-eab72b7c7b24"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_13.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911087763356466`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"47040bef-4fd4-4bed-b773-89bd4935fec3"],

Cell[BoxData[
 FormBox["\<\"kdo = 14\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911087763356466`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"ffe88a3a-289c-4ab7-b024-8cdad58f1f70"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_14.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911288019284377`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"8ff0e3b9-527c-4658-892e-a4dad4c70bb8"],

Cell[BoxData[
 FormBox["\<\"kdo = 15\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911288019284377`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"3bb14951-f80a-442b-aa46-7952a1f67575"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_15.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911474955443926`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"228960d4-0c79-48dd-bb5b-be35c0ff5a0c"],

Cell[BoxData[
 FormBox["\<\"kdo = 16\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891147495560031*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"095ed0a8-fc26-45c2-b5f8-c477bfe7395c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_16.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891172358658004*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"f87a61c7-a39b-47c3-ae97-885bff69f745"],

Cell[BoxData[
 FormBox["\<\"kdo = 17\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891172358658004*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"6766b4bf-20af-4f21-a454-9614b6de1c39"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_17.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911926346334424`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"ecfa0375-7dab-4482-a5f5-e99a01e3154b"],

Cell[BoxData[
 FormBox["\<\"kdo = 18\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8911926346334424`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"991ea80e-6b00-4425-9092-9a609e39da72"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_18.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8912142673545427`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"d102738a-2582-46f3-9a52-d59f1cc7939a"],

Cell[BoxData[
 FormBox["\<\"kdo = 19\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891214267370143*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"980ce067-95e8-44d7-b2c1-a45d683fcb7e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_19.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89123588181781*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"1bc81122-60f1-4a13-bd67-ad08a3a7df08"],

Cell[BoxData[
 FormBox["\<\"kdo = 20\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891235881833434*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"41975ca2-181c-4cae-9de5-d9452788ae2b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_20.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891255521932168*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"ee8eb629-285e-4502-951c-0b16251caf3c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"1000", ",", "1000000", ",", "10000", ",", "29"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390606438443*^9}, {3.890390663812601*^9, 
   3.890390664329313*^9}, 3.8903907015947533`*^9, 3.890390833203396*^9, {
   3.89042282299802*^9, 3.89042282424792*^9}, 3.8913549279178877`*^9, 
   3.891354990542281*^9, {3.8915059998007593`*^9, 3.891506014068842*^9}},
 CellLabel->
  "In[514]:=",ExpressionUUID->"a85a2ca8-e8b5-4137-8710-865acb615cdb"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 30\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8912555418214073`*^9, 3.8913549384333096`*^9, 
  3.8914019609590645`*^9, 3.8915359579750233`*^9},
 CellLabel->
  "During evaluation of \
In[514]:=",ExpressionUUID->"4cb6e070-c584-491f-93b6-7cb6d9e5f127"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_30.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8912555418214073`*^9, 3.8913549384333096`*^9, 
  3.8914019609590645`*^9, 3.891556861191854*^9},
 CellLabel->
  "During evaluation of \
In[514]:=",ExpressionUUID->"5bb5b05e-71d6-4178-a02b-fd5ba6cccaa5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"9000", ",", "1000000", ",", "100000", ",", "21"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.8903907031417246`*^9, 
   3.8903908340629034`*^9, {3.890422825388467*^9, 3.890422826685247*^9}, {
   3.8915926386803565`*^9, 3.8915926437494516`*^9}},
 CellLabel->
  "In[770]:=",ExpressionUUID->"4fcc6f25-c1c0-42d8-a517-12bbbeecd46a"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 22\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891622611853511*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"0112a357-f7cc-4247-8ee8-c7b3dbef62c0"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_22.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8916492087048526`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"c342497b-bfc2-4ab5-a7da-f8374cc0f859"],

Cell[BoxData[
 FormBox["\<\"kdo = 23\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891649208739832*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"3768c082-ddfe-4e78-a9fd-e2fd930664ae"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_23.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8916731268466663`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"616a3164-2250-40a0-a4af-78db6ad03d8b"],

Cell[BoxData[
 FormBox["\<\"kdo = 24\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8916731268576517`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"300e032e-e801-4bd7-9867-d4ecd21cb0ef"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_24.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8916972955189133`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"56d84669-f8cb-416d-96e2-8c5572c7d0b1"],

Cell[BoxData[
 FormBox["\<\"kdo = 25\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891697295529931*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"b1dd1eae-6f34-4f0f-ac4c-75a3126acdc5"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_25.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891723750017067*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"50e809f5-72f9-48ad-b0cf-07391f8c19af"],

Cell[BoxData[
 FormBox["\<\"kdo = 26\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8917237500270605`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"996986ab-5d52-47c2-91d5-20bdaf7c2146"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_26.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891749060240383*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"eaeb2a3d-a5a0-4455-b957-714d1cfdee30"],

Cell[BoxData[
 FormBox["\<\"kdo = 27\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8917490602513776`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"17f30d2e-d3a7-40fe-b71d-4edd7c4b6a8b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_27.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891773149899829*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"5c125c6e-3eea-4b42-ba8e-f9990cc94ba0"],

Cell[BoxData[
 FormBox["\<\"kdo = 28\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891773149910822*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"337607f6-c3e5-4f79-8007-cc4594a47a2e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_28.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891796614949294*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"eb79cfed-d9cd-41cf-a6cb-d7c397fd437d"],

Cell[BoxData[
 FormBox["\<\"kdo = 29\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8917966149592867`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"786d7cd6-4d26-4594-b05e-9b12e70ddb6b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_29.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.8918195641026235`*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"fff80d74-ebbe-41a3-933c-2a379553434f"],

Cell[BoxData[
 FormBox["\<\"kdo = 30\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891819564115615*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"ee43a9b9-ed2b-4bb7-9fbf-0c6630a4045c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat100K_30.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8915568702025423`*^9, 3.891844862860959*^9},
 CellLabel->
  "During evaluation of \
In[770]:=",ExpressionUUID->"6b36db53-1798-4f20-9730-94c3531a4639"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"3000", ",", "1000000", ",", "10000", ",", "37"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390606438443*^9}, {3.890390663812601*^9, 
   3.890390664329313*^9}, 3.8903907015947533`*^9, 3.8903907804068966`*^9, 
   3.8903908350156336`*^9, {3.8904228276383157`*^9, 3.8904228287007437`*^9}, {
   3.8920252482486815`*^9, 
   3.8920252507489195`*^9}},ExpressionUUID->"84457201-9c0e-40ce-8975-\
fa0de35dc820"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 31\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891858074968207*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"e22c44a9-2776-478d-98e0-7fa0876040b4"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_31.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891878836374215*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"455eab12-3520-4345-80be-64ab1abc0f3e"],

Cell[BoxData[
 FormBox["\<\"kdo = 32\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8918788364054456`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"98155205-d4e0-4af6-98a9-d8360c4dea0a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_32.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891903378593419*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"5be05438-a79e-4343-8a78-1e959d70a7a7"],

Cell[BoxData[
 FormBox["\<\"kdo = 33\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8919033786090436`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"0b5c48d0-e7b5-41ae-b400-a9798747d16d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_33.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891928464357688*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"62beefec-e7f2-436c-bc8b-502aff800340"],

Cell[BoxData[
 FormBox["\<\"kdo = 34\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891928464357688*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"7e7bad7f-7d42-47f6-a006-1a117956a52e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_34.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891952375311097*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"b9d27038-7256-4187-a7a4-09ce01a8be10"],

Cell[BoxData[
 FormBox["\<\"kdo = 35\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.891952375311097*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"9b572625-be15-4a4c-9a17-147768f4c4a4"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_35.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8919751507803087`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"db6a3ca1-1902-4053-b6e1-f39215249b22"],

Cell[BoxData[
 FormBox["\<\"kdo = 36\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8919751507803087`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"050ee016-9c6e-4353-8029-c126d7da82fc"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_36.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8919977201556177`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"1c73a6c7-140c-4c7e-b844-5f36e2e1f9e4"],

Cell[BoxData[
 FormBox["\<\"kdo = 37\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8919977201556177`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"f344615b-6cc8-419f-800e-4c0edddac647"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\dat10K_37.mdat\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892020122576928*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"e8f8ad6a-0fec-4012-850b-4a42260e2ad3"],

Cell[BoxData[
 FormBox["\<\"kdo = 38\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89202012259254*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"c6a5a9da-a8e3-4977-b436-d0da16e316c7"]
}, Open  ]],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.892025240156393*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"80b8835c-8f5d-40e6-bc27-fd6758036dbf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "100000", ",", "30"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.8903907031417246`*^9, 
   3.890390781598674*^9, 3.8903908359218483`*^9, {3.8904228300600376`*^9, 
   3.890422831278685*^9}},ExpressionUUID->"1cec2ec4-70c0-4fe0-b6fc-\
03f2baa2d55d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "10000", ",", "40"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390606438443*^9}, {3.890390663812601*^9, 
   3.890390664329313*^9}, 3.8903907015947533`*^9, 3.890390784329837*^9, 
   3.890390837313817*^9, {3.890422832231712*^9, 
   3.8904228334660416`*^9}},ExpressionUUID->"f9778a67-23fc-4cd1-a3bb-\
36d5da35fe94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "100000", ",", "40"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.8903907031417246`*^9, 
   3.8903907855576086`*^9, 3.8903908384589205`*^9, {3.890422834387854*^9, 
   3.8904228357940226`*^9}},ExpressionUUID->"8d7de06d-cbff-4ed8-9a97-\
13e92bbcbe49"],

Cell[BoxData["  "], "Input",
 CellChangeTimes->{
  3.886866823766509*^9, 3.8890863383489203`*^9, 3.8897220259322395`*^9, {
   3.8903076416108704`*^9, 
   3.8903076448613005`*^9}},ExpressionUUID->"1cb86df9-436b-41c1-a284-\
03b466e8b637"],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lastkdocompleted", "=", "47"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"compHistograms", "[", 
     RowBox[{"1000", ",", "1000000", ",", "100000", ",", 
      RowBox[{"lastkdocompleted", "-", "1"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"thou", ",", "10"}], "]"}], "==", "0"}], ",", 
         RowBox[{"restartKernels", "[", "]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"compHistograms", "[", 
        RowBox[{"1000", ",", "1000000", ",", "10000", ",", "thou"}], "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"compHistograms", "[", 
        RowBox[{"1000", ",", "1000000", ",", "100000", ",", "thou"}], "]"}], 
       ";"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"thou", ",", "lastkdocompleted", ",", "99"}], "}"}]}], 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8925412598592434`*^9, 3.8925412902658587`*^9}, {
   3.8925688405763645`*^9, 3.8925688406843295`*^9}, 3.8926281229731297`*^9, 
   3.892717738223737*^9},ExpressionUUID->"cb97d86c-1de0-4a94-ab57-\
554f48d652ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "10000", ",", "52"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.8903907031417246`*^9, 
   3.8903907855576086`*^9, 3.8903908384589205`*^9, {3.890422834387854*^9, 
   3.8904228357940226`*^9}, {3.8927376387531614`*^9, 
   3.8927376514825115`*^9}, {3.8928086935356026`*^9, 3.8928086938359303`*^9}, 
   3.892887798308629*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"43aecffb-9c83-4227-b386-6adb4fa00596"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_60.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8930967607409477`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"70fcac5d-c14d-42b1-8cb7-904a2005b1fe"],

Cell[BoxData[
 FormBox["\<\"kdo = 61\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8930967607565637`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"59e2f666-353a-40df-8aa1-bd21fa64fc1f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_61.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8931210909990444`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"89a4eddf-fcea-4e06-911d-65fc9a2a2c63"],

Cell[BoxData[
 FormBox["\<\"kdo = 62\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8931210909990444`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"88408510-9764-4590-b1c3-a89af6815bdf"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_62.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8931433664103837`*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"49cf17c2-5270-4478-a671-9028549f4976"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"restartKernels", "[", "]"}], ";", 
  RowBox[{"compHistograms", "[", 
   RowBox[{"10000", ",", "1000000", ",", "10000", ",", "64"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.890389647656672*^9, 3.8903896753280907`*^9}, {
   3.890390597204708*^9, 3.890390667893362*^9}, 3.8903907031417246`*^9, 
   3.8903907855576086`*^9, 3.8903908384589205`*^9, {3.890422834387854*^9, 
   3.8904228357940226`*^9}, {3.8927376387531614`*^9, 
   3.8927376514825115`*^9}, {3.8928086935356026`*^9, 3.8928086938359303`*^9}, 
   3.892887798308629*^9, {3.893072456729908*^9, 3.8930724623701286`*^9}, {
   3.8932385626932197`*^9, 
   3.893238562833824*^9}},ExpressionUUID->"6bb020a4-1c21-42f3-a025-\
80126b52c073"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 61\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8931433830810747`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"71c13d84-eabb-4b89-865b-9b5359e84257"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_61.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8931660562689037`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"dff8ebf7-29a3-4bf7-9e9f-c01483ec93b1"],

Cell[BoxData[
 FormBox["\<\"kdo = 62\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8931660563001556`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"aa1a77aa-3e29-4458-a965-c6fbd2dd1162"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_62.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8931850056779313`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"2a2b1165-0506-4a90-99cb-e1c37cdfa3c8"],

Cell[BoxData[
 FormBox["\<\"kdo = 63\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8931850056779313`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"b73d7d19-18dd-43c8-88cd-daa7c408e1aa"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_63.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8932075736349125`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"0a60fd84-38a1-4869-86e3-940ba8e8abdf"],

Cell[BoxData[
 FormBox["\<\"kdo = 64\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8932075736505337`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"9b2879df-073f-428f-bb2e-660c0094cf60"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 1000K\\\\datmikahakkinen10K_64.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.893229102791622*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"503e1c57-7845-42c2-aa76-bafc50a35671"],

Cell[BoxData[
 FormBox["\<\"kdo = 65\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.892918278685917*^9, 3.8932291028072367`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"8a4385c6-08f8-41c1-9ee2-d3b21e786b42"]
}, Open  ]],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.89323855435005*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"0fe0b88b-37ac-46fa-a508-b6de68b8658d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8941051605199766`*^9, 
  3.8941051606802435`*^9}},ExpressionUUID->"af65d123-30ed-4f2f-9919-\
f8117da8ec5e"],

Cell[BoxData[
 RowBox[{"compHistogramsX", "[", 
  RowBox[{
  "nryrs_", ",", "nryrs2_", ",", "totalsims_", ",", "simlen_", ",", "Amax_", 
   ",", "lastkdocompleted_"}], "]"}]], "Input",ExpressionUUID->"cc27b142-86d6-\
4460-b534-1d7cd388cfd0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"compHistogramsX", "[", 
  RowBox[{"30", ",", "500", ",", "10000", ",", 
   SuperscriptBox["10", "6"], ",", "10000", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{3.894105162841465*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"0af7515e-a00e-4f9e-9d06-392461b63d17"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 1\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8941052841409693`*^9},
 CellLabel->
  "During evaluation of \
In[52]:=",ExpressionUUID->"5b16b341-4bba-4121-9494-cf3526464c0a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\datmikahakkinen10K_1.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8941068117134247`*^9},
 CellLabel->
  "During evaluation of \
In[52]:=",ExpressionUUID->"5c5e1e01-9471-4076-a4d5-03d5a7cde309"],

Cell[BoxData[
 FormBox["\<\"kdo = 2\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89410681173841*^9},
 CellLabel->
  "During evaluation of \
In[52]:=",ExpressionUUID->"f7e4c1fc-f323-41df-b61f-258d1d65f558"]
}, Open  ]],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.8941068356240416`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"f67f1762-bb43-4b00-9de6-e28d7dbff885"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"lastkdocompleted", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"compHistogramsX", "[", 
      RowBox[{"100", ",", "500", ",", "10000", ",", 
       SuperscriptBox["10", "7"], ",", "10000", ",", 
       RowBox[{"lastkdocompleted", "-", "1"}]}], "]"}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{"thou", ",", "10"}], "]"}], "==", "0"}], ",", 
        RowBox[{"restartKernels", "[", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"compHistogramsX", "[", 
       RowBox[{"30", ",", "500", ",", "1000", ",", 
        SuperscriptBox["10", "7"], ",", "10000", ",", "thou"}], "]"}], ";"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"compHistogramsX", "[", 
        RowBox[{"100", ",", "500", ",", "1000", ",", 
         SuperscriptBox["10", "7"], ",", "10000", ",", "thou"}], "]"}], ";"}],
       "*)"}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"thou", ",", "lastkdocompleted", ",", "99"}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.89410714862278*^9, 3.8941072015031524`*^9}, {
   3.8941072575089545`*^9, 3.894107258058281*^9}, 3.894448097026984*^9, 
   3.8944865853346844`*^9, 3.894530516084373*^9, {3.8946349256843004`*^9, 
   3.8946349306370673`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"c497214f-5f32-4eb7-adcd-26506787f6fe"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox["\<\"kdo = 1\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8946352001372356`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"797fb7ab-3b0e-40e7-8522-5e8ab9d3d79e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_1.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894649117801176*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"79835f41-36ff-4444-9582-cb8b67dfdf51"],

Cell[BoxData[
 FormBox["\<\"kdo = 2\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8946491178168187`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"622f74bf-094f-49de-8e48-300880c677cf"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_2.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8946625629257774`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b3a48f6b-a22c-434f-8abc-a15b183cf16b"],

Cell[BoxData[
 FormBox["\<\"kdo = 3\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8946625629257774`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1630ae80-65c2-44c2-a047-96418fd53ce9"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_3.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8946760722770023`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"7fa0da6f-7a02-430e-bae3-7a895ab9aaae"],

Cell[BoxData[
 FormBox["\<\"kdo = 4\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8946760722770023`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9f57c34f-3fea-4fdf-9f2a-50895b845234"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_4.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8946889008294516`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6d58e41a-0ffc-4fc9-ad21-6d54a208ffe6"],

Cell[BoxData[
 FormBox["\<\"kdo = 5\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8946889008450594`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4458b6a9-395a-44fc-9b55-a8598a61e16e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_5.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894702298291854*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"11e9ea85-e06d-4a7d-b9ee-75e55a3129f5"],

Cell[BoxData[
 FormBox["\<\"kdo = 6\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894702298291854*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"76e29985-127b-4a54-9c56-c805c719e34f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_6.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947151602789516`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3da6bf0c-bb07-486d-a198-d186970c1252"],

Cell[BoxData[
 FormBox["\<\"kdo = 7\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8947151602789516`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f19f6861-ed0e-469d-9231-6d11a57ee2f1"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_7.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894728839596115*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c1517565-3e79-4b18-a8c1-029655c9dcc1"],

Cell[BoxData[
 FormBox["\<\"kdo = 8\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894728839596115*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ad62bd95-3b5d-4ab2-b5ae-7b5572abbc7f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_8.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947425603931675`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ffe7dbf8-9795-4f1c-acd3-fb0a80cfd39b"],

Cell[BoxData[
 FormBox["\<\"kdo = 9\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894742560408774*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"529c4d82-62cb-466b-b326-4d2fec77554f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_9.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947561533636155`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"19a471a4-6222-4858-a12d-d0f54abe4e7c"],

Cell[BoxData[
 FormBox["\<\"kdo = 10\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8947561533636155`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8f472cc4-0253-40bd-b67c-8e8d0a8ab654"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_10.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947695693598185`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ec415b1c-2b95-49b3-b115-524d7c5f722b"],

Cell[BoxData[
 FormBox["\<\"kdo = 11\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89476958318703*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"807742c1-754e-4668-8aa0-28888744eb01"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_11.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947836989959517`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f539f7e4-e6e3-473f-b8f6-a13f43cefaa3"],

Cell[BoxData[
 FormBox["\<\"kdo = 12\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8947836989959517`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"5fca3f93-aa37-471b-9c2f-e3c0d140ccae"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_12.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8947975361939306`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"97319f63-db2d-479d-a9d5-4c2cc7402f92"],

Cell[BoxData[
 FormBox["\<\"kdo = 13\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8947975362095547`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4f966a9d-c090-442c-bd87-7f39c23c7fc5"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_13.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8948118440913296`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"2e0f802f-3899-4126-a72b-4609f3fb5c45"],

Cell[BoxData[
 FormBox["\<\"kdo = 14\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89481184410695*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"399f0584-55e6-41fb-b1a8-5c7f94b933a8"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_14.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8948253649782777`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"872355d8-e4b1-4738-99cf-396cfd8e5b49"],

Cell[BoxData[
 FormBox["\<\"kdo = 15\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8948253649782777`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"0f944611-5675-46a2-80c3-cb01b4eba4df"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_15.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894838726686414*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d47498b2-d4c8-407c-9f36-f450e32eb5ba"],

Cell[BoxData[
 FormBox["\<\"kdo = 16\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894838726686414*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f6b5262f-b883-46f6-ac20-b198bebed9e2"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_16.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8948518668817244`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4e84cee7-3c1f-44a4-981d-0f9e4fc749d1"],

Cell[BoxData[
 FormBox["\<\"kdo = 17\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8948518668817244`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a23fd63c-2d95-4ad4-bbf2-fd57f3ca3d8c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_17.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894865845527376*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b09a8c73-2307-4326-921b-523f6a22e7e1"],

Cell[BoxData[
 FormBox["\<\"kdo = 18\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894865845527376*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9d339412-ed6d-4146-9e02-88a864ba569e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_18.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8948801071598053`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"dd386aa5-c9e1-4603-a322-85279baa535f"],

Cell[BoxData[
 FormBox["\<\"kdo = 19\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8948801071598053`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3c7d41b6-5a6a-4d29-9f57-637e2c605c68"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_19.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894893897027507*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a0e5d72f-367a-4a53-aaca-847a8def3400"],

Cell[BoxData[
 FormBox["\<\"kdo = 20\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894893897043098*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e64167b5-39fd-4955-80b2-80381522520e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_20.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949077417833214`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"0485f79e-97e3-4119-b1bf-f53e9fa590c7"],

Cell[BoxData[
 FormBox["\<\"kdo = 21\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8949077571573224`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"785d93de-80d9-4e06-a05e-e00df63d2f76"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_21.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949212124212008`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"19f2ad6f-f4b5-4360-b13a-e25dcf5e2155"],

Cell[BoxData[
 FormBox["\<\"kdo = 22\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8949212124212008`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f9d97a3a-d73b-42c1-9d90-c25c323a7dd7"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_22.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.894934193257222*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"047cfc26-028b-4011-8e08-8c27edbf9a4f"],

Cell[BoxData[
 FormBox["\<\"kdo = 23\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894934193257222*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a4066d9f-0118-4808-b0db-51272c9d924d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_23.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949472261332054`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b6513056-ff91-47ee-8f12-4f7b30c47937"],

Cell[BoxData[
 FormBox["\<\"kdo = 24\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8949472261332054`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1cbf3fb0-8b06-42ab-858d-3154973abe27"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_24.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949603922192864`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"53576c52-d3fd-404c-8c34-41235b18d43c"],

Cell[BoxData[
 FormBox["\<\"kdo = 25\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8949603922192864`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3a9e4d00-a37a-4134-93f5-407320314812"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_25.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949739278614163`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"02ce103c-a53b-47fa-b5c4-17ba5bf7a8ec"],

Cell[BoxData[
 FormBox["\<\"kdo = 26\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.894973927877022*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9e1c6972-7c53-4d65-8566-49adc3bd653a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_26.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8949875926318007`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"17a11b9d-dc08-4972-9016-cf9cba591354"],

Cell[BoxData[
 FormBox["\<\"kdo = 27\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8949875926318007`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"bab53303-8549-4552-8441-ad238d01288f"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_27.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950000291797433`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"52db2cd6-2f69-40c8-9531-e12b319d9a57"],

Cell[BoxData[
 FormBox["\<\"kdo = 28\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950000291797433`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"356fd97c-8d35-4ed8-8f32-81e9d6351083"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_28.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950130305434647`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"881d907d-686c-4d6e-824e-2fdabba52a32"],

Cell[BoxData[
 FormBox["\<\"kdo = 29\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950130305434647`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"5bbfe02d-b932-4d3c-a84c-e53dfa3084aa"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_29.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950263998798656`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"91e64463-92a9-4228-ba60-7a1873b5c861"],

Cell[BoxData[
 FormBox["\<\"kdo = 30\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950263998798656`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a4c5962f-0297-4a97-bc3d-d523f376bcf9"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_30.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950394345401297`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"996109fe-2451-4132-95bc-cee7aa35d980"],

Cell[BoxData[
 FormBox["\<\"kdo = 31\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895039449086095*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4efaeaf8-b44b-4a8c-ba65-05b209605408"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_31.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895052352795204*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1bf2cbd9-c922-4fbd-8c28-c10fa032c398"],

Cell[BoxData[
 FormBox["\<\"kdo = 32\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895052352795204*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f6ebf52e-1d88-492b-be28-1f9a594cb5d8"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_32.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950655113147397`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6e6f5518-b538-4dab-8a13-3f92fa7e45f5"],

Cell[BoxData[
 FormBox["\<\"kdo = 33\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950655113147397`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"5cfef971-3550-4b0e-901b-41ef99935999"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_33.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895078591880316*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f29b92c4-cdca-44fb-8401-51dd1eb9e106"],

Cell[BoxData[
 FormBox["\<\"kdo = 34\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950785918959274`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3fb79ac2-1068-4118-9066-2f51cdc7f20b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_34.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8950922361945133`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a3605b91-7806-4a1f-984c-d336f821a028"],

Cell[BoxData[
 FormBox["\<\"kdo = 35\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8950922361945133`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c892b821-b3bd-45f7-a704-b8cadb845e1d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_35.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8951059631121445`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"77bc0af1-4f1c-44f0-8659-84b5dc22fb70"],

Cell[BoxData[
 FormBox["\<\"kdo = 36\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895105963127785*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c8c9c0d6-c18f-4169-9e68-1984c5d362b6"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_36.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8951190729769444`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"23aa4171-3545-43e1-bdce-c7b7ac994dd7"],

Cell[BoxData[
 FormBox["\<\"kdo = 37\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8951190729925675`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1b9af954-eef7-4a5a-a68d-8b4687ceec80"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_37.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8951315396104198`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f25a7e57-3b2f-4646-8a91-fbbf71bced90"],

Cell[BoxData[
 FormBox["\<\"kdo = 38\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8951315396104198`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"bfc7681a-e313-40d7-b0e6-8c56cbd12b25"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_38.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895145136930026*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ea7e3e37-fa14-4e98-ad52-008a9fa1c881"],

Cell[BoxData[
 FormBox["\<\"kdo = 39\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895145136930026*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"074b5286-288f-4a93-ac49-e6a9c1af36bd"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_39.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8951593388310785`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d82517c6-9c7f-4373-87e3-4f38066f05e8"],

Cell[BoxData[
 FormBox["\<\"kdo = 40\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8951593388466983`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"398c03d8-4e1e-46f0-bbac-5d5a67a844fd"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_40.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895172733115844*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"06d2dd37-370f-4b4a-958d-ccc6313d1e27"],

Cell[BoxData[
 FormBox["\<\"kdo = 41\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895172758067365*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"373ed712-aabc-4e17-a99e-da061422ab18"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_41.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8951859257268114`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a349bd26-9431-483e-aa0c-67a2a656e6f6"],

Cell[BoxData[
 FormBox["\<\"kdo = 42\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89518592574242*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"57f91039-9b8b-49ac-ab60-e427f503f76d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_42.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895199159245409*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"93d43ceb-b014-45af-a013-2e26d6cf980a"],

Cell[BoxData[
 FormBox["\<\"kdo = 43\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8951991592610292`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"35ada0d7-f9b2-463b-af4b-44826b7b1bb9"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_43.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895212202378664*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a0e90219-7c8c-429d-87a3-fc51413464c1"],

Cell[BoxData[
 FormBox["\<\"kdo = 44\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895212202378664*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d46aa972-f7af-4bb9-bd60-752171c56d9b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_44.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8952250494753017`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6e142976-8bfe-4b60-a96a-e9ad0ca0c0b5"],

Cell[BoxData[
 FormBox["\<\"kdo = 45\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8952250494753017`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"79e26906-2eb9-4db5-83d1-c17fed1472c2"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_45.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8952377280209603`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6d48488b-00fc-4828-ad3c-91e8b512e7e2"],

Cell[BoxData[
 FormBox["\<\"kdo = 46\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8952377280209603`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ba35569e-75ab-4873-bb1a-898b03e92378"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_46.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895251279143468*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"7b6f2c9d-22c6-4bc1-a393-22eb1d003ada"],

Cell[BoxData[
 FormBox["\<\"kdo = 47\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895251279159073*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"fe6b3833-d03f-4b7a-b1b7-bedcb9c1f340"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_47.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895263622045991*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"aed32a0b-69e8-406f-a2c0-af028c682eb7"],

Cell[BoxData[
 FormBox["\<\"kdo = 48\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895263622045991*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"57fb3221-b8c6-4225-a3b7-8cf67146a920"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_48.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8952765320082316`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"210db8c4-1ede-4e40-aec6-2bc12d954075"],

Cell[BoxData[
 FormBox["\<\"kdo = 49\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8952765320082316`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"7b79a99d-e022-46cd-97f0-a1ecf250e7f9"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_49.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8952898402937145`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"2170b644-038a-4266-ba22-99918f743385"],

Cell[BoxData[
 FormBox["\<\"kdo = 50\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8952898402937145`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f985caa5-def5-4d5a-9da4-9613c225c843"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_50.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895303291128446*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"2d91a2eb-0ef2-458b-8f56-784b380cfe1d"],

Cell[BoxData[
 FormBox["\<\"kdo = 51\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953033172985945`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"eb1ce687-5538-4958-b8f3-3e27b42e5908"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_51.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953164051620927`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4caddc32-6504-438a-8772-b6acf56afdee"],

Cell[BoxData[
 FormBox["\<\"kdo = 52\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953164051620927`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"368b71e5-e03b-4f0d-9187-70559c25eabf"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_52.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895329202102762*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"21f66211-520e-48e6-b474-9b2ac9329475"],

Cell[BoxData[
 FormBox["\<\"kdo = 53\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953292021183853`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"68d430f5-409c-4380-a6e9-f8d07717797e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_53.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953422238311048`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8f02a3b7-422c-48b6-af8f-f780e71f3d06"],

Cell[BoxData[
 FormBox["\<\"kdo = 54\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953422238467293`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1a339edc-62fd-40fc-bb33-27f284829d63"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_54.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953552941329904`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"7e1e0a05-06c9-483d-be3d-8b903a5a10b6"],

Cell[BoxData[
 FormBox["\<\"kdo = 55\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953552941329904`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a9e6cef3-08ff-4d58-8e63-abf30285bb05"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_55.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953680717785482`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"44234f76-95f6-4653-8bd0-c2e25dff3cf1"],

Cell[BoxData[
 FormBox["\<\"kdo = 56\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953680717785482`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b3d76340-4bd1-4285-9fdf-e206d52c697a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_56.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953816097845726`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d43e8fde-3af7-47fb-bd99-1971e2cece98"],

Cell[BoxData[
 FormBox["\<\"kdo = 57\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8953816097845726`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b13d5148-aea7-4f6b-8307-b997c5d1c901"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_57.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8953946910404024`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e4477503-80d4-40fc-9b5b-ec5a43256174"],

Cell[BoxData[
 FormBox["\<\"kdo = 58\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895394691056034*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"181d0317-1880-430d-80c9-d24b761c3d0e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_58.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.89540807965198*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"995c8abd-1f0f-46df-9382-9fe4f5a3e6d6"],

Cell[BoxData[
 FormBox["\<\"kdo = 59\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89540807965198*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"726f8d48-b23d-4f02-ad4f-6a2c6720e1c4"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_59.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895420735887677*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"7fb48279-8cc3-46f7-b6b9-69111c21fc80"],

Cell[BoxData[
 FormBox["\<\"kdo = 60\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895420735887677*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ee6b7c57-c40a-4bb0-ab38-f54d59ebdfdd"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_60.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895433712503229*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"0f4b11b8-f59a-48d1-9948-28f9546a9e0a"],

Cell[BoxData[
 FormBox["\<\"kdo = 61\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895433723939965*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"46498c9e-ab82-497f-8566-4371c2955c4b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_61.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895446383179492*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9c1b442b-0d92-414a-b42f-50e68ff1b2b9"],

Cell[BoxData[
 FormBox["\<\"kdo = 62\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895446383179492*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f5f1ccaf-0de3-459f-ab9c-1bd4da7eeab3"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_62.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895460114437394*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"27a48582-e3ac-4f1f-a8b1-8df1cf5ca616"],

Cell[BoxData[
 FormBox["\<\"kdo = 63\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895460114437394*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c05e2f49-3937-432c-a9b6-c789a563d684"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_63.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8954738533557787`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"314451dc-6913-4af6-95b8-3a67bde77004"],

Cell[BoxData[
 FormBox["\<\"kdo = 64\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8954738533714*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"5e0f99ff-6ec6-4d1d-8079-8a4931646f98"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_64.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8954874523318834`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8631490b-711b-4cf1-a352-c9bc8acff0f2"],

Cell[BoxData[
 FormBox["\<\"kdo = 65\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8954874523475075`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a2d72f55-4a55-45ed-90d3-074de1fb9f97"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_65.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8955007890609694`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"810bf72f-385d-416d-8d59-b1e15e8d02ad"],

Cell[BoxData[
 FormBox["\<\"kdo = 66\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8955007890609694`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"27232732-9549-4b13-a37f-a22bb30524c9"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_66.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895514452612809*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c07ba5a6-8d0d-4287-aefa-6956c6ecc836"],

Cell[BoxData[
 FormBox["\<\"kdo = 67\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8955144526284122`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"35f5cfef-36e6-48b2-b768-5556074b9ccf"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_67.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895530138453839*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c409b69f-214f-4ec4-8000-5f24322e7e6e"],

Cell[BoxData[
 FormBox["\<\"kdo = 68\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895530138469463*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"87973a62-a5d9-4f8f-b579-37fb9cb63784"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_68.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8955438145542274`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1592d358-93c4-429a-adcc-3611f309066e"],

Cell[BoxData[
 FormBox["\<\"kdo = 69\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8955438145542274`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b308b8e0-72b3-47c6-b8d5-896795310660"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_69.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8955575532055454`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"eb5374f5-9315-4b00-8b79-f8b6d6f2cc74"],

Cell[BoxData[
 FormBox["\<\"kdo = 70\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8955575532055454`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3c42a8bb-18c7-47ea-ab1d-79526056859b"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_70.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.89557215465298*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"22e31446-10a3-4886-b7b1-2b8ed0870f78"],

Cell[BoxData[
 FormBox["\<\"kdo = 71\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895572190978696*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"28fb2177-02f0-41f0-bc76-692e8f7c35d1"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_71.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895585481130372*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"bbbdc10c-311c-44ab-839b-8d100b6d0ef7"],

Cell[BoxData[
 FormBox["\<\"kdo = 72\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895585481130372*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"cdf08fff-7299-4f48-8e5e-bd39608b826e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_72.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8955981079133244`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"468157a8-f2ca-4562-a93e-7b51187f9711"],

Cell[BoxData[
 FormBox["\<\"kdo = 73\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8955981079133244`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"84723c3c-9c20-47e6-8941-ed5566d93894"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_73.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8956112021067567`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"09eae414-dfb4-42ba-907d-36f7d0cf850a"],

Cell[BoxData[
 FormBox["\<\"kdo = 74\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8956112021067567`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"1b10ace6-d678-4672-95ce-b30d4a0bd34c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_74.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8956239285097656`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"dc65179a-8746-455c-9d8b-ead1b9f4fc5f"],

Cell[BoxData[
 FormBox["\<\"kdo = 75\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8956239285097656`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b479f834-295c-4fbc-a273-189b4749eeb5"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_75.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895637261368828*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"bc944bf6-05ca-4906-b3be-12878bb87571"],

Cell[BoxData[
 FormBox["\<\"kdo = 76\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895637261368828*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9911a607-73af-453c-8d19-e24f006f613d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_76.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895650565964553*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"9fd345fd-0b88-4dd4-a6d4-40668af5315c"],

Cell[BoxData[
 FormBox["\<\"kdo = 77\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895650565964553*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"59f73471-ed88-400b-83e7-2f0e462f2f5d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_77.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895664119322344*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f528e629-5cb4-4d87-9d9b-97fa1d309003"],

Cell[BoxData[
 FormBox["\<\"kdo = 78\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895664119322344*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e0970e63-f2af-4694-8696-ada2c72ac2a1"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_78.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895677273660165*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"6c186638-8f24-410b-93fe-c392857e0c06"],

Cell[BoxData[
 FormBox["\<\"kdo = 79\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895677273660165*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d9c0a9b9-b8b1-4ffd-b380-490a82a86f6e"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_79.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895690396590669*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"08e4cdb7-7b5f-4f1f-9347-bcc2ac4f5b80"],

Cell[BoxData[
 FormBox["\<\"kdo = 80\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895690396590669*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"0140d9f0-4c3f-4b4d-9d3e-5ff339d2b394"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_80.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895703577382343*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8505b592-ddf8-4744-8747-a8f6cd9cd219"],

Cell[BoxData[
 FormBox["\<\"kdo = 81\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89570358931905*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"f74178ee-b5b8-405d-b2a9-ab87ee29e988"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_81.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8957170549945273`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"aaac044c-ef97-425b-97f3-9c21484207d2"],

Cell[BoxData[
 FormBox["\<\"kdo = 82\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89571705501015*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"de37624a-1e48-48c5-8c03-e3e4b86d2d6a"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_82.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895730605315692*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"895ffdaa-6ad4-4ce8-97f2-72bc26979c0a"],

Cell[BoxData[
 FormBox["\<\"kdo = 83\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895730605315692*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d3102609-ade9-406b-9cf0-e83cc23fe99c"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_83.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.89574407909572*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"84dcb79f-4067-4478-ae18-aeee61e7f4d2"],

Cell[BoxData[
 FormBox["\<\"kdo = 84\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89574407909572*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"2abbc1c9-7335-403a-80b0-73acb7fc9871"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_84.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8957572512354326`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d1e55ae9-f8ed-434a-a003-ab5b6a74bc01"],

Cell[BoxData[
 FormBox["\<\"kdo = 85\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8957572512354326`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b1309d9f-e0b1-4e81-b75e-29d5fbf00528"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_85.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8957703451467295`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"208fdbde-bed5-4768-b7cc-6eb52188fdc2"],

Cell[BoxData[
 FormBox["\<\"kdo = 86\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895770345162338*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8793477a-efab-44f8-8f40-dc3ed9b0a1e2"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_86.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8957831424158173`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"79ddcd05-e715-4443-bbe0-7f5478d6e03e"],

Cell[BoxData[
 FormBox["\<\"kdo = 87\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8957831424314394`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"5475dfac-c270-4065-b2ef-7c2e4e604bf2"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_87.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8957960639637947`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"345b8bbc-7c32-4ae0-92a9-811c3924f294"],

Cell[BoxData[
 FormBox["\<\"kdo = 88\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8957960639637947`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"8fd484b1-87e8-42d8-8964-db57ea20cc1d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_88.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895809427683232*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"48884a92-57ea-4e15-b8c4-a3aa4cfe42ac"],

Cell[BoxData[
 FormBox["\<\"kdo = 89\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8958094276988525`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e54d383a-a051-4b55-b452-21959ee20bfd"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_89.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.89582242345636*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a002eaf2-7bba-4c8c-a9c9-ac8cd99d31bb"],

Cell[BoxData[
 FormBox["\<\"kdo = 90\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89582242345636*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"85459c9b-1ab1-4300-80f3-f04c63052df1"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_90.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895836316531004*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c7f40652-3da6-4275-970d-2276ff5c5275"],

Cell[BoxData[
 FormBox["\<\"kdo = 91\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895836333373643*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"729652e4-8da6-4492-8ed7-6b6a64e2aae6"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_91.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8958494041465626`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"88066607-abcf-4858-9b54-dffdbb50e8a6"],

Cell[BoxData[
 FormBox["\<\"kdo = 92\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8958494041465626`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"db014146-12ed-4488-b5bf-f74402089d5d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_92.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895862222140261*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4753d2dd-c642-47af-9cbc-42beda99c725"],

Cell[BoxData[
 FormBox["\<\"kdo = 93\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895862222155865*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"37813486-b47c-46cd-b552-11dbf865231d"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_93.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.895875235759361*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"41eb9c56-eb53-4e22-a036-fbcb29585efb"],

Cell[BoxData[
 FormBox["\<\"kdo = 94\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.895875235759361*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c6b99e4f-9eb5-423b-ae9e-a306bd4dfe28"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_94.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8958881883176165`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e73419b8-d140-474b-b0e8-80642fcff941"],

Cell[BoxData[
 FormBox["\<\"kdo = 95\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8958881883176165`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"d92a4e61-ac9c-475e-bcd1-bf08f7671253"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_95.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.8959008653414726`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"bdacf4a2-2aed-426c-8f83-d91eb9966fca"],

Cell[BoxData[
 FormBox["\<\"kdo = 96\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.8959008653414726`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4a4a79a8-8c57-4ceb-a875-b4c171bb7a59"],

Cell[BoxData[
 FormBox["\<\"E:\\\\OneDrive - rush.edu\\\\Big Data\\\\CICR Fission \
Model\\\\Histograms 30Q1 to 500\\\\dattommycaldwell10K_96.mdat\"\>", 
  TraditionalForm]], "Print",
 CellChangeTimes->{3.89591409636589*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"761c5290-5164-429b-9da2-da3add6e0df4"],

Cell[BoxData[
 FormBox["\<\"kdo = 97\"\>", TraditionalForm]], "Print",
 CellChangeTimes->{3.89591409636589*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4356e2ff-f3cf-4bba-8f15-53e9ab6adc77"]
}, Open  ]],

Cell[BoxData[
 FormBox["$Aborted", TraditionalForm]], "Output",
 CellChangeTimes->{3.8946351009563484`*^9, 3.8959166485062933`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"1d198c0e-05e9-4b98-bdc3-04b8f329ec40"]
}, Open  ]]
},
WindowSize->{810.4615384615385, 597.5384615384615},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.3 for Microsoft Windows (64-bit) (June 3, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"dce3864e-0bdd-4e8d-b5b4-94cc0d04d24e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 271, 9, 94, "Text",ExpressionUUID->"2003fced-1e1a-4c1d-9026-690d49fe7183"],
Cell[832, 31, 1050, 26, 33, "Input",ExpressionUUID->"e0c6a03f-8655-4ebe-af5e-d152fa11fe5b",
 InitializationCell->True],
Cell[1885, 59, 1894, 39, 91, "Input",ExpressionUUID->"4143c482-ce0f-4510-9998-761fc75fed70",
 InitializationCell->True],
Cell[3782, 100, 2171, 53, 148, "Input",ExpressionUUID->"5e919707-6b41-4118-ac69-14ec073e6869",
 InitializationCell->True],
Cell[5956, 155, 415, 9, 33, "Input",ExpressionUUID->"47822c56-8bd5-4b4a-ac21-5f2c52c453da",
 InitializationCell->True],
Cell[6374, 166, 356, 7, 33, "Input",ExpressionUUID->"628afd4e-aaea-41b0-a1fc-a3568c055921",
 InitializationCell->True],
Cell[6733, 175, 861, 23, 21, "Input",ExpressionUUID->"6019f2ee-3e52-4a11-a3a6-5d740c15e945"],
Cell[7597, 200, 831, 21, 33, "Input",ExpressionUUID->"42c0ccf8-7da9-49ce-9980-dd738080291e",
 InitializationCell->True],
Cell[8431, 223, 585, 14, 21, "Input",ExpressionUUID->"33901459-0f7a-4c65-9df2-7ae521428d15"],
Cell[9019, 239, 910, 22, 48, "Input",ExpressionUUID->"09965330-241c-4129-9dbd-a13e3182bdc8",
 InitializationCell->True],
Cell[9932, 263, 690, 18, 33, "Input",ExpressionUUID->"c1250322-b31e-48a6-9ae9-1996509ad755",
 InitializationCell->True],
Cell[10625, 283, 782, 21, 33, "Input",ExpressionUUID->"1cde4af7-5de4-4d06-8d5d-c2627944c0c5",
 InitializationCell->True],
Cell[11410, 306, 388, 9, 33, "Input",ExpressionUUID->"3732a6a2-3c83-4352-beb8-355602a0ae7a",
 InitializationCell->True],
Cell[11801, 317, 868, 18, 105, "Input",ExpressionUUID->"60bf30ef-83fa-4d76-a057-348c2b82054a",
 InitializationCell->True],
Cell[12672, 337, 978, 23, 76, "Input",ExpressionUUID->"c5ac6f2f-3429-4d4b-ac36-8b6b98cca62f",
 InitializationCell->True],
Cell[13653, 362, 343, 7, 33, "Input",ExpressionUUID->"a36e3fd1-0d13-4bd9-8385-45a64b08a2c1",
 InitializationCell->True],
Cell[13999, 371, 1761, 43, 105, "Input",ExpressionUUID->"f1777493-faaf-4902-b421-326961535fb3",
 InitializationCell->True],
Cell[15763, 416, 628, 17, 48, "Input",ExpressionUUID->"457fd49d-b656-46b9-ac10-0b0d96767143",
 InitializationCell->True],
Cell[16394, 435, 418, 10, 33, "Input",ExpressionUUID->"af996fd1-0dd7-44ce-9160-d0c3b18c819d",
 InitializationCell->True],
Cell[16815, 447, 427, 10, 33, "Input",ExpressionUUID->"6260461e-ae81-48e6-9552-dea4339d9eea",
 InitializationCell->True],
Cell[17245, 459, 1006, 28, 105, "Input",ExpressionUUID->"709b1de9-8e0a-4b60-8b1b-211315e20a25",
 InitializationCell->True],
Cell[18254, 489, 4086, 93, 219, "Input",ExpressionUUID->"94e43306-d77d-4f98-a20e-28ba6bde62ff",
 InitializationCell->True],
Cell[22343, 584, 1340, 35, 91, "Input",ExpressionUUID->"3615300f-d131-458d-8288-fc9721506738",
 InitializationCell->True],
Cell[23686, 621, 1356, 35, 91, "Input",ExpressionUUID->"04ce4c58-43ca-4123-a28d-f53595773ab7",
 InitializationCell->True],
Cell[25045, 658, 480, 10, 48, "Input",ExpressionUUID->"718572ed-7c80-4c26-908d-443ec6962715",
 InitializationCell->True],
Cell[25528, 670, 752, 24, 35, "Input",ExpressionUUID->"82e13190-8e7d-41ef-92ab-503c01007229",
 InitializationCell->True],
Cell[26283, 696, 1758, 43, 99, "Input",ExpressionUUID->"3dfa35b8-3a7f-4d91-972b-53cf5c79dfdb"],
Cell[28044, 741, 763, 20, 36, "Input",ExpressionUUID->"15886dac-bd27-428d-a559-af5026e3f8ef"],
Cell[28810, 763, 442, 10, 33, "Input",ExpressionUUID->"07264f0a-efe3-4963-8320-c85cac989f47",
 InitializationCell->True],
Cell[29255, 775, 447, 11, 33, "Input",ExpressionUUID->"aa659e4e-d11d-4cdf-a35c-8652b95fb328",
 InitializationCell->True],
Cell[29705, 788, 285, 9, 94, "Text",ExpressionUUID->"7445c256-6181-4657-b15e-512bb28c7b0e"],
Cell[29993, 799, 12082, 236, 362, "Input",ExpressionUUID->"76d153fa-f727-4fbe-bbd3-368aa293831f",
 InitializationCell->True],
Cell[42078, 1037, 12495, 243, 390, "Input",ExpressionUUID->"bbd3eb22-b2c5-45c1-83f7-450e025b3074",
 InitializationCell->True],
Cell[54576, 1282, 602, 13, 33, "Input",ExpressionUUID->"982e88de-b56d-4092-9ecd-354111571f3a",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[55203, 1299, 1776, 37, 56, "Input",ExpressionUUID->"e26ff721-cb57-4699-9c38-e9c0e8c983e2"],
Cell[56982, 1338, 171, 4, 20, "EchoTiming",ExpressionUUID->"237f5677-82bb-41db-b3d0-ece9be1cba28"],
Cell[57156, 1344, 7502, 155, 250, "Output",ExpressionUUID->"570a9e81-37b4-496f-ba65-5e3d1d172c9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64695, 1504, 1800, 37, 56, "Input",ExpressionUUID->"6c3d6950-eae2-4e42-b63d-f6ef9cea73bd"],
Cell[66498, 1543, 171, 4, 20, "EchoTiming",ExpressionUUID->"23b7b475-2508-4e8c-a54d-ae5a957373be"],
Cell[66672, 1549, 6076, 135, 252, "Output",ExpressionUUID->"740bf1b5-489d-4ff5-817e-0a8c44a0f3df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72785, 1689, 1825, 37, 56, "Input",ExpressionUUID->"e021bdc4-3306-4b8b-8c1e-ae16153de019"],
Cell[74613, 1728, 172, 4, 20, "EchoTiming",ExpressionUUID->"415434a9-c387-43d8-8f21-a5e676921bbc"],
Cell[74788, 1734, 6255, 137, 250, "Output",ExpressionUUID->"03ba0f0a-d0d8-4a10-9e3b-b145e600590c"]
}, Open  ]],
Cell[81058, 1874, 7976, 177, 448, "Input",ExpressionUUID->"0eee2efd-5d17-4ecc-90b9-800950325301",
 InitializationCell->True],
Cell[89037, 2053, 425, 9, 33, "Input",ExpressionUUID->"aaf70acc-3a1b-4e86-a502-934108c8fa5c",
 InitializationCell->True],
Cell[89465, 2064, 4069, 86, 262, "Input",ExpressionUUID->"70da6ba0-b0ad-4e56-971b-fd57aa4b3560",
 InitializationCell->True],
Cell[93537, 2152, 10140, 215, 533, "Input",ExpressionUUID->"368ce495-4747-4e9f-8ea1-090c1aae77d1",
 InitializationCell->True],
Cell[103680, 2369, 311, 7, 33, "Input",ExpressionUUID->"50673311-3563-4ba9-bf63-bff4111c583b",
 InitializationCell->True],
Cell[103994, 2378, 306, 10, 94, "Text",ExpressionUUID->"1139ad0e-9825-4274-865c-81fe442ad16c"],
Cell[CellGroupData[{
Cell[104325, 2392, 800, 22, 64, "Input",ExpressionUUID->"f177041b-8779-4dcc-b720-95a8b5648b94"],
Cell[105128, 2416, 294, 6, 24, "Output",ExpressionUUID->"c863b38a-5ced-4bce-99b1-dca7ff146b9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105459, 2427, 1022, 23, 79, "Input",ExpressionUUID->"67759784-7c2f-4951-a238-ab93a164e97b"],
Cell[106484, 2452, 239, 5, 19, "Print",ExpressionUUID->"2a584e97-f43b-4e56-ab9b-44e441d76c95"],
Cell[106726, 2459, 207, 3, 24, "Output",ExpressionUUID->"37f20d16-55e8-4af4-aadd-02c73f313365"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106970, 2467, 509, 9, 21, "Input",ExpressionUUID->"50f355ac-9e81-4227-bca9-bc91522e82e9"],
Cell[CellGroupData[{
Cell[107504, 2480, 308, 6, 19, "Print",ExpressionUUID->"3fd2b104-620b-49da-aebb-737b01db4179"],
Cell[107815, 2488, 215, 5, 19, "Print",ExpressionUUID->"f381e72f-b910-4256-b25f-b1e8c8dd087f"],
Cell[108033, 2495, 306, 6, 19, "Print",ExpressionUUID->"794af2cb-0bb0-444e-bfd3-906adfd27518"],
Cell[108342, 2503, 217, 5, 19, "Print",ExpressionUUID->"94969135-cdbe-4764-b30f-a557195e8be8"],
Cell[108562, 2510, 308, 6, 19, "Print",ExpressionUUID->"e46d685d-aa2c-48c6-9987-2c05d2aa5b73"],
Cell[108873, 2518, 217, 5, 19, "Print",ExpressionUUID->"78623178-1185-4b66-ad8d-5b187d47ac09"],
Cell[109093, 2525, 308, 6, 19, "Print",ExpressionUUID->"0d856156-e886-40df-838f-6becf575fede"],
Cell[109404, 2533, 217, 5, 19, "Print",ExpressionUUID->"5c079b68-da00-4253-ad63-4d0ec1792c76"],
Cell[109624, 2540, 308, 6, 19, "Print",ExpressionUUID->"2b0d8313-902a-4c16-ac83-40798ac44f9f"],
Cell[109935, 2548, 217, 5, 19, "Print",ExpressionUUID->"af77836f-d9d1-4803-861e-16055f2c63a1"],
Cell[110155, 2555, 308, 6, 19, "Print",ExpressionUUID->"059cedd3-d5e4-4834-a325-ca918f675d2a"],
Cell[110466, 2563, 217, 5, 19, "Print",ExpressionUUID->"ab606389-2c5b-4b04-8701-b7843eca3e43"],
Cell[110686, 2570, 306, 6, 19, "Print",ExpressionUUID->"63922452-5410-4d30-901b-906fc33ef1d3"],
Cell[110995, 2578, 216, 5, 19, "Print",ExpressionUUID->"d4a6d251-2483-466d-afbf-79c411fd40a6"],
Cell[111214, 2585, 307, 6, 19, "Print",ExpressionUUID->"b156a9c2-c2c0-42a7-86e9-d80a8f46190f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[111570, 2597, 423, 8, 21, "Input",ExpressionUUID->"cad9997d-8682-4af5-b622-1c79c2dcdf3a"],
Cell[CellGroupData[{
Cell[112018, 2609, 217, 5, 19, "Print",ExpressionUUID->"862a8281-7255-4143-801d-27fb63341beb"],
Cell[112238, 2616, 307, 6, 19, "Print",ExpressionUUID->"364574f5-adcd-4b6d-b9d3-faffd9c02ace"],
Cell[112548, 2624, 217, 5, 19, "Print",ExpressionUUID->"3cf3605a-4efd-4666-bdef-4c40b83c0633"],
Cell[112768, 2631, 306, 6, 19, "Print",ExpressionUUID->"efd405c0-07ed-44e9-a8b0-ce7e6d23140f"],
Cell[113077, 2639, 215, 5, 19, "Print",ExpressionUUID->"e8aefe04-d127-4e8c-a255-c119b4a56ee3"],
Cell[113295, 2646, 309, 6, 19, "Print",ExpressionUUID->"2b415b4b-25b3-4b42-8d3e-bbc722cb3e2f"],
Cell[113607, 2654, 217, 5, 19, "Print",ExpressionUUID->"ea45dd64-91c8-4db0-9ed2-5f2edd8b400f"],
Cell[113827, 2661, 306, 6, 19, "Print",ExpressionUUID->"24eb14dd-ad77-4a6e-aa8b-d5594e878286"],
Cell[114136, 2669, 215, 5, 19, "Print",ExpressionUUID->"cd3403d8-bc55-43af-9642-a9774a5da5cf"],
Cell[114354, 2676, 309, 6, 19, "Print",ExpressionUUID->"32ae8eb8-f9c3-47ff-8cdf-ce3e5df3a4a3"],
Cell[114666, 2684, 217, 5, 19, "Print",ExpressionUUID->"867952f4-bcd8-47de-ba03-80a03e6ad4aa"],
Cell[114886, 2691, 307, 6, 19, "Print",ExpressionUUID->"621c1830-881d-47d0-a54e-9abee75bf696"],
Cell[115196, 2699, 217, 5, 19, "Print",ExpressionUUID->"f867eb96-a4e1-4e40-a607-f9a7dc7e431d"],
Cell[115416, 2706, 309, 6, 19, "Print",ExpressionUUID->"d37c8b54-3e09-4409-a59a-28addd6f37df"],
Cell[115728, 2714, 215, 5, 19, "Print",ExpressionUUID->"b049b12e-b071-48d1-98e9-64b4c2b9b288"],
Cell[115946, 2721, 309, 6, 19, "Print",ExpressionUUID->"73d53d65-73ae-48e5-8b95-1626b3309b29"],
Cell[116258, 2729, 217, 5, 19, "Print",ExpressionUUID->"ce3224e8-c2c8-420a-9969-84f1210a58dc"],
Cell[116478, 2736, 309, 6, 19, "Print",ExpressionUUID->"c2936483-20bd-42bd-9e2c-69d046b34f87"],
Cell[116790, 2744, 218, 5, 19, "Print",ExpressionUUID->"d4c18c0f-51ed-47b1-8785-619f38dd5596"],
Cell[117011, 2751, 310, 6, 19, "Print",ExpressionUUID->"7049d7de-43b7-4ef2-bda9-a1e613110364"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[117370, 2763, 511, 10, 21, "Input",ExpressionUUID->"51c22001-051f-4811-8d69-68fb477abf09"],
Cell[CellGroupData[{
Cell[117906, 2777, 216, 5, 19, "Print",ExpressionUUID->"5182664a-dead-4925-a34b-6423c66a018f"],
Cell[118125, 2784, 307, 6, 19, "Print",ExpressionUUID->"b89159fb-e332-4774-8ab7-e77531813898"],
Cell[118435, 2792, 218, 5, 19, "Print",ExpressionUUID->"f299eeed-3e77-45e7-9cfe-0356253acc1d"],
Cell[118656, 2799, 307, 6, 19, "Print",ExpressionUUID->"399b31a4-d88a-4c2f-a52e-5eba02c4acea"],
Cell[118966, 2807, 218, 5, 19, "Print",ExpressionUUID->"6bb71ac1-d570-4906-ae9f-717c82a0416c"],
Cell[119187, 2814, 309, 6, 19, "Print",ExpressionUUID->"011bebbb-752c-402d-8fac-35173ae7e7b9"],
Cell[119499, 2822, 218, 5, 19, "Print",ExpressionUUID->"2034f386-fed6-4eaf-b784-c31924428e75"],
Cell[119720, 2829, 307, 6, 19, "Print",ExpressionUUID->"8690256f-ce57-4a2e-8b2b-11c78985bed5"],
Cell[120030, 2837, 216, 5, 19, "Print",ExpressionUUID->"964edd65-dd50-4159-b5e0-6fbc68bc528a"],
Cell[120249, 2844, 309, 6, 19, "Print",ExpressionUUID->"1cc376d3-6c8b-45b8-86f6-307efb1d161a"],
Cell[120561, 2852, 218, 5, 19, "Print",ExpressionUUID->"31b49907-99b2-4ec4-aef1-d9465e228634"],
Cell[120782, 2859, 309, 6, 19, "Print",ExpressionUUID->"424347e0-af35-45db-8a44-4aa45870b9a5"],
Cell[121094, 2867, 218, 5, 19, "Print",ExpressionUUID->"798db19e-9ac5-425d-87a5-c2fce20566f3"],
Cell[121315, 2874, 309, 6, 19, "Print",ExpressionUUID->"6b957669-b381-4652-b3bd-540bfe2edee0"],
Cell[121627, 2882, 218, 5, 19, "Print",ExpressionUUID->"1ed89525-95af-444c-acfe-2e0277539248"],
Cell[121848, 2889, 309, 6, 19, "Print",ExpressionUUID->"591587b5-db53-465c-9e44-44460ed04420"],
Cell[122160, 2897, 218, 5, 19, "Print",ExpressionUUID->"afb1acff-27ad-4a7c-9eda-560ddc17cc5c"],
Cell[122381, 2904, 309, 6, 19, "Print",ExpressionUUID->"a18a435c-f9b2-422c-9473-37cce137a865"],
Cell[122693, 2912, 218, 5, 19, "Print",ExpressionUUID->"1d9373d5-8999-45c7-9a7b-5f0ff4adb318"],
Cell[122914, 2919, 307, 6, 19, "Print",ExpressionUUID->"c61e0c69-ff3d-436d-84f2-86959d4560b3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[123270, 2931, 460, 9, 21, "Input",ExpressionUUID->"0de020f6-5e56-4930-9f44-35afdb029180"],
Cell[CellGroupData[{
Cell[123755, 2944, 216, 5, 19, "Print",ExpressionUUID->"b4610fba-f136-406a-99c3-d930e2a79cdc"],
Cell[123974, 2951, 308, 6, 19, "Print",ExpressionUUID->"b84feaf9-0051-45d7-bbb9-5b8a6b0410d6"],
Cell[124285, 2959, 218, 5, 19, "Print",ExpressionUUID->"ec1f126b-6283-4e33-94e3-4f8784fe8ac5"],
Cell[124506, 2966, 308, 6, 19, "Print",ExpressionUUID->"c25ccee5-1775-4aef-b80f-e6e54f68d335"],
Cell[124817, 2974, 216, 5, 19, "Print",ExpressionUUID->"ce6bfd76-d41c-4c99-9bbc-eab72b7c7b24"],
Cell[125036, 2981, 310, 6, 19, "Print",ExpressionUUID->"47040bef-4fd4-4bed-b773-89bd4935fec3"],
Cell[125349, 2989, 218, 5, 19, "Print",ExpressionUUID->"ffe88a3a-289c-4ab7-b024-8cdad58f1f70"],
Cell[125570, 2996, 310, 6, 19, "Print",ExpressionUUID->"8ff0e3b9-527c-4658-892e-a4dad4c70bb8"],
Cell[125883, 3004, 218, 5, 19, "Print",ExpressionUUID->"3bb14951-f80a-442b-aa46-7952a1f67575"],
Cell[126104, 3011, 310, 6, 19, "Print",ExpressionUUID->"228960d4-0c79-48dd-bb5b-be35c0ff5a0c"],
Cell[126417, 3019, 216, 5, 19, "Print",ExpressionUUID->"095ed0a8-fc26-45c2-b5f8-c477bfe7395c"],
Cell[126636, 3026, 308, 6, 19, "Print",ExpressionUUID->"f87a61c7-a39b-47c3-ae97-885bff69f745"],
Cell[126947, 3034, 216, 5, 19, "Print",ExpressionUUID->"6766b4bf-20af-4f21-a454-9614b6de1c39"],
Cell[127166, 3041, 310, 6, 19, "Print",ExpressionUUID->"ecfa0375-7dab-4482-a5f5-e99a01e3154b"],
Cell[127479, 3049, 218, 5, 19, "Print",ExpressionUUID->"991ea80e-6b00-4425-9092-9a609e39da72"],
Cell[127700, 3056, 310, 6, 19, "Print",ExpressionUUID->"d102738a-2582-46f3-9a52-d59f1cc7939a"],
Cell[128013, 3064, 216, 5, 19, "Print",ExpressionUUID->"980ce067-95e8-44d7-b2c1-a45d683fcb7e"],
Cell[128232, 3071, 307, 6, 19, "Print",ExpressionUUID->"1bc81122-60f1-4a13-bd67-ad08a3a7df08"],
Cell[128542, 3079, 216, 5, 19, "Print",ExpressionUUID->"41975ca2-181c-4cae-9de5-d9452788ae2b"],
Cell[128761, 3086, 308, 6, 19, "Print",ExpressionUUID->"ee8eb629-285e-4502-951c-0b16251caf3c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[129118, 3098, 631, 12, 21, "Input",ExpressionUUID->"a85a2ca8-e8b5-4137-8710-865acb615cdb"],
Cell[CellGroupData[{
Cell[129774, 3114, 295, 6, 19, "Print",ExpressionUUID->"4cb6e070-c584-491f-93b6-7cb6d9e5f127"],
Cell[130072, 3122, 384, 7, 19, "Print",ExpressionUUID->"5bb5b05e-71d6-4178-a02b-fd5ba6cccaa5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[130505, 3135, 542, 11, 21, "Input",ExpressionUUID->"4fcc6f25-c1c0-42d8-a517-12bbbeecd46a"],
Cell[CellGroupData[{
Cell[131072, 3150, 242, 5, 19, "Print",ExpressionUUID->"0112a357-f7cc-4247-8ee8-c7b3dbef62c0"],
Cell[131317, 3157, 336, 6, 19, "Print",ExpressionUUID->"c342497b-bfc2-4ab5-a7da-f8374cc0f859"],
Cell[131656, 3165, 242, 5, 19, "Print",ExpressionUUID->"3768c082-ddfe-4e78-a9fd-e2fd930664ae"],
Cell[131901, 3172, 336, 6, 19, "Print",ExpressionUUID->"616a3164-2250-40a0-a4af-78db6ad03d8b"],
Cell[132240, 3180, 244, 5, 19, "Print",ExpressionUUID->"300e032e-e801-4bd7-9867-d4ecd21cb0ef"],
Cell[132487, 3187, 336, 6, 19, "Print",ExpressionUUID->"56d84669-f8cb-416d-96e2-8c5572c7d0b1"],
Cell[132826, 3195, 242, 5, 19, "Print",ExpressionUUID->"b1dd1eae-6f34-4f0f-ac4c-75a3126acdc5"],
Cell[133071, 3202, 334, 6, 19, "Print",ExpressionUUID->"50e809f5-72f9-48ad-b0cf-07391f8c19af"],
Cell[133408, 3210, 244, 5, 19, "Print",ExpressionUUID->"996986ab-5d52-47c2-91d5-20bdaf7c2146"],
Cell[133655, 3217, 334, 6, 19, "Print",ExpressionUUID->"eaeb2a3d-a5a0-4455-b957-714d1cfdee30"],
Cell[133992, 3225, 244, 5, 19, "Print",ExpressionUUID->"17f30d2e-d3a7-40fe-b71d-4edd7c4b6a8b"],
Cell[134239, 3232, 334, 6, 19, "Print",ExpressionUUID->"5c125c6e-3eea-4b42-ba8e-f9990cc94ba0"],
Cell[134576, 3240, 242, 5, 19, "Print",ExpressionUUID->"337607f6-c3e5-4f79-8007-cc4594a47a2e"],
Cell[134821, 3247, 334, 6, 19, "Print",ExpressionUUID->"eb79cfed-d9cd-41cf-a6cb-d7c397fd437d"],
Cell[135158, 3255, 244, 5, 19, "Print",ExpressionUUID->"786d7cd6-4d26-4594-b05e-9b12e70ddb6b"],
Cell[135405, 3262, 336, 6, 19, "Print",ExpressionUUID->"fff80d74-ebbe-41a3-933c-2a379553434f"],
Cell[135744, 3270, 242, 5, 19, "Print",ExpressionUUID->"ee43a9b9-ed2b-4bb7-9fbf-0c6630a4045c"],
Cell[135989, 3277, 334, 6, 19, "Print",ExpressionUUID->"6b36db53-1798-4f20-9730-94c3531a4639"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[136372, 3289, 597, 12, 21, "Input",ExpressionUUID->"84457201-9c0e-40ce-8975-fa0de35dc820"],
Cell[CellGroupData[{
Cell[136994, 3305, 216, 5, 19, "Print",ExpressionUUID->"e22c44a9-2776-478d-98e0-7fa0876040b4"],
Cell[137213, 3312, 307, 6, 19, "Print",ExpressionUUID->"455eab12-3520-4345-80be-64ab1abc0f3e"],
Cell[137523, 3320, 218, 5, 19, "Print",ExpressionUUID->"98155205-d4e0-4af6-98a9-d8360c4dea0a"],
Cell[137744, 3327, 307, 6, 19, "Print",ExpressionUUID->"5be05438-a79e-4343-8a78-1e959d70a7a7"],
Cell[138054, 3335, 218, 5, 19, "Print",ExpressionUUID->"0b5c48d0-e7b5-41ae-b400-a9798747d16d"],
Cell[138275, 3342, 307, 6, 19, "Print",ExpressionUUID->"62beefec-e7f2-436c-bc8b-502aff800340"],
Cell[138585, 3350, 216, 5, 19, "Print",ExpressionUUID->"7e7bad7f-7d42-47f6-a006-1a117956a52e"],
Cell[138804, 3357, 307, 6, 19, "Print",ExpressionUUID->"b9d27038-7256-4187-a7a4-09ce01a8be10"],
Cell[139114, 3365, 216, 5, 19, "Print",ExpressionUUID->"9b572625-be15-4a4c-9a17-147768f4c4a4"],
Cell[139333, 3372, 309, 6, 19, "Print",ExpressionUUID->"db6a3ca1-1902-4053-b6e1-f39215249b22"],
Cell[139645, 3380, 218, 5, 19, "Print",ExpressionUUID->"050ee016-9c6e-4353-8029-c126d7da82fc"],
Cell[139866, 3387, 309, 6, 19, "Print",ExpressionUUID->"1c73a6c7-140c-4c7e-b844-5f36e2e1f9e4"],
Cell[140178, 3395, 218, 5, 19, "Print",ExpressionUUID->"f344615b-6cc8-419f-800e-4c0edddac647"],
Cell[140399, 3402, 307, 6, 19, "Print",ExpressionUUID->"e8f8ad6a-0fec-4012-850b-4a42260e2ad3"],
Cell[140709, 3410, 215, 5, 19, "Print",ExpressionUUID->"c6a5a9da-a8e3-4977-b436-d0da16e316c7"]
}, Open  ]],
Cell[140939, 3418, 183, 3, 24, "Output",ExpressionUUID->"80b8835c-8f5d-40e6-bc27-fd6758036dbf"]
}, Open  ]],
Cell[141137, 3424, 491, 10, 21, "Input",ExpressionUUID->"1cec2ec4-70c0-4fe0-b6fc-03f2baa2d55d"],
Cell[141631, 3436, 538, 11, 21, "Input",ExpressionUUID->"f9778a67-23fc-4cd1-a3bb-36d5da35fe94"],
Cell[142172, 3449, 493, 10, 21, "Input",ExpressionUUID->"8d7de06d-cbff-4ed8-9a97-13e92bbcbe49"],
Cell[142668, 3461, 236, 5, 21, "Input",ExpressionUUID->"1cb86df9-436b-41c1-a284-03b466e8b637"],
Cell[142907, 3468, 1363, 33, 122, "Input",ExpressionUUID->"cb97d86c-1de0-4a94-ab57-554f48d652ae"],
Cell[CellGroupData[{
Cell[144295, 3505, 643, 12, 21, "Input",ExpressionUUID->"43aecffb-9c83-4227-b386-6adb4fa00596"],
Cell[CellGroupData[{
Cell[144963, 3521, 324, 7, 19, "Print",ExpressionUUID->"70fcac5d-c14d-42b1-8cb7-904a2005b1fe"],
Cell[145290, 3530, 218, 5, 19, "Print",ExpressionUUID->"59e2f666-353a-40df-8aa1-bd21fa64fc1f"],
Cell[145511, 3537, 324, 7, 19, "Print",ExpressionUUID->"89a4eddf-fcea-4e06-911d-65fc9a2a2c63"],
Cell[145838, 3546, 218, 5, 19, "Print",ExpressionUUID->"88408510-9764-4590-b1c3-a89af6815bdf"],
Cell[146059, 3553, 324, 7, 19, "Print",ExpressionUUID->"49cf17c2-5270-4478-a671-9028549f4976"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[146432, 3566, 726, 14, 21, "Input",ExpressionUUID->"6bb020a4-1c21-42f3-a025-80126b52c073"],
Cell[CellGroupData[{
Cell[147183, 3584, 240, 5, 19, "Print",ExpressionUUID->"71c13d84-eabb-4b89-865b-9b5359e84257"],
Cell[147426, 3591, 346, 7, 19, "Print",ExpressionUUID->"dff8ebf7-29a3-4bf7-9e9f-c01483ec93b1"],
Cell[147775, 3600, 240, 5, 19, "Print",ExpressionUUID->"aa1a77aa-3e29-4458-a965-c6fbd2dd1162"],
Cell[148018, 3607, 346, 7, 19, "Print",ExpressionUUID->"2a2b1165-0506-4a90-99cb-e1c37cdfa3c8"],
Cell[148367, 3616, 240, 5, 19, "Print",ExpressionUUID->"b73d7d19-18dd-43c8-88cd-daa7c408e1aa"],
Cell[148610, 3623, 346, 7, 19, "Print",ExpressionUUID->"0a60fd84-38a1-4869-86e3-940ba8e8abdf"],
Cell[148959, 3632, 240, 5, 19, "Print",ExpressionUUID->"9b2879df-073f-428f-bb2e-660c0094cf60"],
Cell[149202, 3639, 344, 7, 19, "Print",ExpressionUUID->"503e1c57-7845-42c2-aa76-bafc50a35671"],
Cell[149549, 3648, 240, 5, 19, "Print",ExpressionUUID->"8a4385c6-08f8-41c1-9ee2-d3b21e786b42"]
}, Open  ]],
Cell[149804, 3656, 182, 3, 24, "Output",ExpressionUUID->"0fe0b88b-37ac-46fa-a508-b6de68b8658d"]
}, Open  ]],
Cell[150001, 3662, 210, 4, 50, "Input",ExpressionUUID->"af65d123-30ed-4f2f-9919-f8117da8ec5e"],
Cell[150214, 3668, 241, 5, 21, "Input",ExpressionUUID->"cc27b142-86d6-4460-b534-1d7cd388cfd0"],
Cell[CellGroupData[{
Cell[150480, 3677, 289, 5, 23, "Input",ExpressionUUID->"0af7515e-a00e-4f9e-9d06-392461b63d17"],
Cell[CellGroupData[{
Cell[150794, 3686, 218, 5, 19, "Print",ExpressionUUID->"5b16b341-4bba-4121-9494-cf3526464c0a"],
Cell[151015, 3693, 330, 7, 19, "Print",ExpressionUUID->"5c5e1e01-9471-4076-a4d5-03d5a7cde309"],
Cell[151348, 3702, 215, 5, 19, "Print",ExpressionUUID->"f7e4c1fc-f323-41df-b61f-258d1d65f558"]
}, Open  ]],
Cell[151578, 3710, 186, 3, 24, "Output",ExpressionUUID->"f67f1762-bb43-4b00-9de6-e28d7dbff885"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151801, 3718, 1653, 39, 134, "Input",ExpressionUUID->"c497214f-5f32-4eb7-adcd-26506787f6fe"],
Cell[CellGroupData[{
Cell[153479, 3761, 218, 5, 19, "Print",ExpressionUUID->"797fb7ab-3b0e-40e7-8522-5e8ab9d3d79e"],
Cell[153700, 3768, 329, 7, 19, "Print",ExpressionUUID->"79835f41-36ff-4444-9582-cb8b67dfdf51"],
Cell[154032, 3777, 218, 5, 19, "Print",ExpressionUUID->"622f74bf-094f-49de-8e48-300880c677cf"],
Cell[154253, 3784, 331, 7, 19, "Print",ExpressionUUID->"b3a48f6b-a22c-434f-8abc-a15b183cf16b"],
Cell[154587, 3793, 218, 5, 19, "Print",ExpressionUUID->"1630ae80-65c2-44c2-a047-96418fd53ce9"],
Cell[154808, 3800, 331, 7, 19, "Print",ExpressionUUID->"7fa0da6f-7a02-430e-bae3-7a895ab9aaae"],
Cell[155142, 3809, 218, 5, 19, "Print",ExpressionUUID->"9f57c34f-3fea-4fdf-9f2a-50895b845234"],
Cell[155363, 3816, 331, 7, 19, "Print",ExpressionUUID->"6d58e41a-0ffc-4fc9-ad21-6d54a208ffe6"],
Cell[155697, 3825, 218, 5, 19, "Print",ExpressionUUID->"4458b6a9-395a-44fc-9b55-a8598a61e16e"],
Cell[155918, 3832, 329, 7, 19, "Print",ExpressionUUID->"11e9ea85-e06d-4a7d-b9ee-75e55a3129f5"],
Cell[156250, 3841, 216, 5, 19, "Print",ExpressionUUID->"76e29985-127b-4a54-9c56-c805c719e34f"],
Cell[156469, 3848, 331, 7, 19, "Print",ExpressionUUID->"3da6bf0c-bb07-486d-a198-d186970c1252"],
Cell[156803, 3857, 218, 5, 19, "Print",ExpressionUUID->"f19f6861-ed0e-469d-9231-6d11a57ee2f1"],
Cell[157024, 3864, 329, 7, 19, "Print",ExpressionUUID->"c1517565-3e79-4b18-a8c1-029655c9dcc1"],
Cell[157356, 3873, 216, 5, 19, "Print",ExpressionUUID->"ad62bd95-3b5d-4ab2-b5ae-7b5572abbc7f"],
Cell[157575, 3880, 331, 7, 19, "Print",ExpressionUUID->"ffe7dbf8-9795-4f1c-acd3-fb0a80cfd39b"],
Cell[157909, 3889, 216, 5, 19, "Print",ExpressionUUID->"529c4d82-62cb-466b-b326-4d2fec77554f"],
Cell[158128, 3896, 331, 7, 19, "Print",ExpressionUUID->"19a471a4-6222-4858-a12d-d0f54abe4e7c"],
Cell[158462, 3905, 219, 5, 19, "Print",ExpressionUUID->"8f472cc4-0253-40bd-b67c-8e8d0a8ab654"],
Cell[158684, 3912, 332, 7, 19, "Print",ExpressionUUID->"ec415b1c-2b95-49b3-b115-524d7c5f722b"],
Cell[159019, 3921, 216, 5, 19, "Print",ExpressionUUID->"807742c1-754e-4668-8aa0-28888744eb01"],
Cell[159238, 3928, 332, 7, 19, "Print",ExpressionUUID->"f539f7e4-e6e3-473f-b8f6-a13f43cefaa3"],
Cell[159573, 3937, 219, 5, 19, "Print",ExpressionUUID->"5fca3f93-aa37-471b-9c2f-e3c0d140ccae"],
Cell[159795, 3944, 332, 7, 19, "Print",ExpressionUUID->"97319f63-db2d-479d-a9d5-4c2cc7402f92"],
Cell[160130, 3953, 219, 5, 19, "Print",ExpressionUUID->"4f966a9d-c090-442c-bd87-7f39c23c7fc5"],
Cell[160352, 3960, 332, 7, 19, "Print",ExpressionUUID->"2e0f802f-3899-4126-a72b-4609f3fb5c45"],
Cell[160687, 3969, 216, 5, 19, "Print",ExpressionUUID->"399f0584-55e6-41fb-b1a8-5c7f94b933a8"],
Cell[160906, 3976, 332, 7, 19, "Print",ExpressionUUID->"872355d8-e4b1-4738-99cf-396cfd8e5b49"],
Cell[161241, 3985, 219, 5, 19, "Print",ExpressionUUID->"0f944611-5675-46a2-80c3-cb01b4eba4df"],
Cell[161463, 3992, 330, 7, 19, "Print",ExpressionUUID->"d47498b2-d4c8-407c-9f36-f450e32eb5ba"],
Cell[161796, 4001, 217, 5, 19, "Print",ExpressionUUID->"f6b5262f-b883-46f6-ac20-b198bebed9e2"],
Cell[162016, 4008, 332, 7, 19, "Print",ExpressionUUID->"4e84cee7-3c1f-44a4-981d-0f9e4fc749d1"],
Cell[162351, 4017, 219, 5, 19, "Print",ExpressionUUID->"a23fd63c-2d95-4ad4-bbf2-fd57f3ca3d8c"],
Cell[162573, 4024, 330, 7, 19, "Print",ExpressionUUID->"b09a8c73-2307-4326-921b-523f6a22e7e1"],
Cell[162906, 4033, 217, 5, 19, "Print",ExpressionUUID->"9d339412-ed6d-4146-9e02-88a864ba569e"],
Cell[163126, 4040, 332, 7, 19, "Print",ExpressionUUID->"dd386aa5-c9e1-4603-a322-85279baa535f"],
Cell[163461, 4049, 219, 5, 19, "Print",ExpressionUUID->"3c7d41b6-5a6a-4d29-9f57-637e2c605c68"],
Cell[163683, 4056, 330, 7, 19, "Print",ExpressionUUID->"a0e5d72f-367a-4a53-aaca-847a8def3400"],
Cell[164016, 4065, 217, 5, 19, "Print",ExpressionUUID->"e64167b5-39fd-4955-80b2-80381522520e"],
Cell[164236, 4072, 332, 7, 19, "Print",ExpressionUUID->"0485f79e-97e3-4119-b1bf-f53e9fa590c7"],
Cell[164571, 4081, 219, 5, 19, "Print",ExpressionUUID->"785d93de-80d9-4e06-a05e-e00df63d2f76"],
Cell[164793, 4088, 332, 7, 19, "Print",ExpressionUUID->"19f2ad6f-f4b5-4360-b13a-e25dcf5e2155"],
Cell[165128, 4097, 219, 5, 19, "Print",ExpressionUUID->"f9d97a3a-d73b-42c1-9d90-c25c323a7dd7"],
Cell[165350, 4104, 330, 7, 19, "Print",ExpressionUUID->"047cfc26-028b-4011-8e08-8c27edbf9a4f"],
Cell[165683, 4113, 217, 5, 19, "Print",ExpressionUUID->"a4066d9f-0118-4808-b0db-51272c9d924d"],
Cell[165903, 4120, 332, 7, 19, "Print",ExpressionUUID->"b6513056-ff91-47ee-8f12-4f7b30c47937"],
Cell[166238, 4129, 219, 5, 19, "Print",ExpressionUUID->"1cbf3fb0-8b06-42ab-858d-3154973abe27"],
Cell[166460, 4136, 332, 7, 19, "Print",ExpressionUUID->"53576c52-d3fd-404c-8c34-41235b18d43c"],
Cell[166795, 4145, 219, 5, 19, "Print",ExpressionUUID->"3a9e4d00-a37a-4134-93f5-407320314812"],
Cell[167017, 4152, 332, 7, 19, "Print",ExpressionUUID->"02ce103c-a53b-47fa-b5c4-17ba5bf7a8ec"],
Cell[167352, 4161, 217, 5, 19, "Print",ExpressionUUID->"9e1c6972-7c53-4d65-8566-49adc3bd653a"],
Cell[167572, 4168, 332, 7, 19, "Print",ExpressionUUID->"17a11b9d-dc08-4972-9016-cf9cba591354"],
Cell[167907, 4177, 219, 5, 19, "Print",ExpressionUUID->"bab53303-8549-4552-8441-ad238d01288f"],
Cell[168129, 4184, 332, 7, 19, "Print",ExpressionUUID->"52db2cd6-2f69-40c8-9531-e12b319d9a57"],
Cell[168464, 4193, 219, 5, 19, "Print",ExpressionUUID->"356fd97c-8d35-4ed8-8f32-81e9d6351083"],
Cell[168686, 4200, 332, 7, 19, "Print",ExpressionUUID->"881d907d-686c-4d6e-824e-2fdabba52a32"],
Cell[169021, 4209, 219, 5, 19, "Print",ExpressionUUID->"5bbfe02d-b932-4d3c-a84c-e53dfa3084aa"],
Cell[169243, 4216, 332, 7, 19, "Print",ExpressionUUID->"91e64463-92a9-4228-ba60-7a1873b5c861"],
Cell[169578, 4225, 219, 5, 19, "Print",ExpressionUUID->"a4c5962f-0297-4a97-bc3d-d523f376bcf9"],
Cell[169800, 4232, 332, 7, 19, "Print",ExpressionUUID->"996109fe-2451-4132-95bc-cee7aa35d980"],
Cell[170135, 4241, 217, 5, 19, "Print",ExpressionUUID->"4efaeaf8-b44b-4a8c-ba65-05b209605408"],
Cell[170355, 4248, 330, 7, 19, "Print",ExpressionUUID->"1bf2cbd9-c922-4fbd-8c28-c10fa032c398"],
Cell[170688, 4257, 217, 5, 19, "Print",ExpressionUUID->"f6ebf52e-1d88-492b-be28-1f9a594cb5d8"],
Cell[170908, 4264, 332, 7, 19, "Print",ExpressionUUID->"6e6f5518-b538-4dab-8a13-3f92fa7e45f5"],
Cell[171243, 4273, 219, 5, 19, "Print",ExpressionUUID->"5cfef971-3550-4b0e-901b-41ef99935999"],
Cell[171465, 4280, 330, 7, 19, "Print",ExpressionUUID->"f29b92c4-cdca-44fb-8401-51dd1eb9e106"],
Cell[171798, 4289, 219, 5, 19, "Print",ExpressionUUID->"3fb79ac2-1068-4118-9066-2f51cdc7f20b"],
Cell[172020, 4296, 332, 7, 19, "Print",ExpressionUUID->"a3605b91-7806-4a1f-984c-d336f821a028"],
Cell[172355, 4305, 219, 5, 19, "Print",ExpressionUUID->"c892b821-b3bd-45f7-a704-b8cadb845e1d"],
Cell[172577, 4312, 332, 7, 19, "Print",ExpressionUUID->"77bc0af1-4f1c-44f0-8659-84b5dc22fb70"],
Cell[172912, 4321, 217, 5, 19, "Print",ExpressionUUID->"c8c9c0d6-c18f-4169-9e68-1984c5d362b6"],
Cell[173132, 4328, 332, 7, 19, "Print",ExpressionUUID->"23aa4171-3545-43e1-bdce-c7b7ac994dd7"],
Cell[173467, 4337, 219, 5, 19, "Print",ExpressionUUID->"1b9af954-eef7-4a5a-a68d-8b4687ceec80"],
Cell[173689, 4344, 332, 7, 19, "Print",ExpressionUUID->"f25a7e57-3b2f-4646-8a91-fbbf71bced90"],
Cell[174024, 4353, 219, 5, 19, "Print",ExpressionUUID->"bfc7681a-e313-40d7-b0e6-8c56cbd12b25"],
Cell[174246, 4360, 330, 7, 19, "Print",ExpressionUUID->"ea7e3e37-fa14-4e98-ad52-008a9fa1c881"],
Cell[174579, 4369, 217, 5, 19, "Print",ExpressionUUID->"074b5286-288f-4a93-ac49-e6a9c1af36bd"],
Cell[174799, 4376, 332, 7, 19, "Print",ExpressionUUID->"d82517c6-9c7f-4373-87e3-4f38066f05e8"],
Cell[175134, 4385, 219, 5, 19, "Print",ExpressionUUID->"398c03d8-4e1e-46f0-bbac-5d5a67a844fd"],
Cell[175356, 4392, 330, 7, 19, "Print",ExpressionUUID->"06d2dd37-370f-4b4a-958d-ccc6313d1e27"],
Cell[175689, 4401, 217, 5, 19, "Print",ExpressionUUID->"373ed712-aabc-4e17-a99e-da061422ab18"],
Cell[175909, 4408, 332, 7, 19, "Print",ExpressionUUID->"a349bd26-9431-483e-aa0c-67a2a656e6f6"],
Cell[176244, 4417, 216, 5, 19, "Print",ExpressionUUID->"57f91039-9b8b-49ac-ab60-e427f503f76d"],
Cell[176463, 4424, 330, 7, 19, "Print",ExpressionUUID->"93d43ceb-b014-45af-a013-2e26d6cf980a"],
Cell[176796, 4433, 219, 5, 19, "Print",ExpressionUUID->"35ada0d7-f9b2-463b-af4b-44826b7b1bb9"],
Cell[177018, 4440, 330, 7, 19, "Print",ExpressionUUID->"a0e90219-7c8c-429d-87a3-fc51413464c1"],
Cell[177351, 4449, 217, 5, 19, "Print",ExpressionUUID->"d46aa972-f7af-4bb9-bd60-752171c56d9b"],
Cell[177571, 4456, 332, 7, 19, "Print",ExpressionUUID->"6e142976-8bfe-4b60-a96a-e9ad0ca0c0b5"],
Cell[177906, 4465, 219, 5, 19, "Print",ExpressionUUID->"79e26906-2eb9-4db5-83d1-c17fed1472c2"],
Cell[178128, 4472, 332, 7, 19, "Print",ExpressionUUID->"6d48488b-00fc-4828-ad3c-91e8b512e7e2"],
Cell[178463, 4481, 219, 5, 19, "Print",ExpressionUUID->"ba35569e-75ab-4873-bb1a-898b03e92378"],
Cell[178685, 4488, 330, 7, 19, "Print",ExpressionUUID->"7b6f2c9d-22c6-4bc1-a393-22eb1d003ada"],
Cell[179018, 4497, 217, 5, 19, "Print",ExpressionUUID->"fe6b3833-d03f-4b7a-b1b7-bedcb9c1f340"],
Cell[179238, 4504, 330, 7, 19, "Print",ExpressionUUID->"aed32a0b-69e8-406f-a2c0-af028c682eb7"],
Cell[179571, 4513, 217, 5, 19, "Print",ExpressionUUID->"57fb3221-b8c6-4225-a3b7-8cf67146a920"],
Cell[179791, 4520, 332, 7, 19, "Print",ExpressionUUID->"210db8c4-1ede-4e40-aec6-2bc12d954075"],
Cell[180126, 4529, 219, 5, 19, "Print",ExpressionUUID->"7b79a99d-e022-46cd-97f0-a1ecf250e7f9"],
Cell[180348, 4536, 332, 7, 19, "Print",ExpressionUUID->"2170b644-038a-4266-ba22-99918f743385"],
Cell[180683, 4545, 219, 5, 19, "Print",ExpressionUUID->"f985caa5-def5-4d5a-9da4-9613c225c843"],
Cell[180905, 4552, 330, 7, 19, "Print",ExpressionUUID->"2d91a2eb-0ef2-458b-8f56-784b380cfe1d"],
Cell[181238, 4561, 219, 5, 19, "Print",ExpressionUUID->"eb1ce687-5538-4958-b8f3-3e27b42e5908"],
Cell[181460, 4568, 332, 7, 19, "Print",ExpressionUUID->"4caddc32-6504-438a-8772-b6acf56afdee"],
Cell[181795, 4577, 219, 5, 19, "Print",ExpressionUUID->"368b71e5-e03b-4f0d-9187-70559c25eabf"],
Cell[182017, 4584, 330, 7, 19, "Print",ExpressionUUID->"21f66211-520e-48e6-b474-9b2ac9329475"],
Cell[182350, 4593, 219, 5, 19, "Print",ExpressionUUID->"68d430f5-409c-4380-a6e9-f8d07717797e"],
Cell[182572, 4600, 332, 7, 19, "Print",ExpressionUUID->"8f02a3b7-422c-48b6-af8f-f780e71f3d06"],
Cell[182907, 4609, 219, 5, 19, "Print",ExpressionUUID->"1a339edc-62fd-40fc-bb33-27f284829d63"],
Cell[183129, 4616, 332, 7, 19, "Print",ExpressionUUID->"7e1e0a05-06c9-483d-be3d-8b903a5a10b6"],
Cell[183464, 4625, 219, 5, 19, "Print",ExpressionUUID->"a9e6cef3-08ff-4d58-8e63-abf30285bb05"],
Cell[183686, 4632, 332, 7, 19, "Print",ExpressionUUID->"44234f76-95f6-4653-8bd0-c2e25dff3cf1"],
Cell[184021, 4641, 219, 5, 19, "Print",ExpressionUUID->"b3d76340-4bd1-4285-9fdf-e206d52c697a"],
Cell[184243, 4648, 332, 7, 19, "Print",ExpressionUUID->"d43e8fde-3af7-47fb-bd99-1971e2cece98"],
Cell[184578, 4657, 219, 5, 19, "Print",ExpressionUUID->"b13d5148-aea7-4f6b-8307-b997c5d1c901"],
Cell[184800, 4664, 332, 7, 19, "Print",ExpressionUUID->"e4477503-80d4-40fc-9b5b-ec5a43256174"],
Cell[185135, 4673, 217, 5, 19, "Print",ExpressionUUID->"181d0317-1880-430d-80c9-d24b761c3d0e"],
Cell[185355, 4680, 329, 7, 19, "Print",ExpressionUUID->"995c8abd-1f0f-46df-9382-9fe4f5a3e6d6"],
Cell[185687, 4689, 216, 5, 19, "Print",ExpressionUUID->"726f8d48-b23d-4f02-ad4f-6a2c6720e1c4"],
Cell[185906, 4696, 330, 7, 19, "Print",ExpressionUUID->"7fb48279-8cc3-46f7-b6b9-69111c21fc80"],
Cell[186239, 4705, 217, 5, 19, "Print",ExpressionUUID->"ee6b7c57-c40a-4bb0-ab38-f54d59ebdfdd"],
Cell[186459, 4712, 330, 7, 19, "Print",ExpressionUUID->"0f4b11b8-f59a-48d1-9948-28f9546a9e0a"],
Cell[186792, 4721, 217, 5, 19, "Print",ExpressionUUID->"46498c9e-ab82-497f-8566-4371c2955c4b"],
Cell[187012, 4728, 330, 7, 19, "Print",ExpressionUUID->"9c1b442b-0d92-414a-b42f-50e68ff1b2b9"],
Cell[187345, 4737, 217, 5, 19, "Print",ExpressionUUID->"f5f1ccaf-0de3-459f-ab9c-1bd4da7eeab3"],
Cell[187565, 4744, 330, 7, 19, "Print",ExpressionUUID->"27a48582-e3ac-4f1f-a8b1-8df1cf5ca616"],
Cell[187898, 4753, 217, 5, 19, "Print",ExpressionUUID->"c05e2f49-3937-432c-a9b6-c789a563d684"],
Cell[188118, 4760, 332, 7, 19, "Print",ExpressionUUID->"314451dc-6913-4af6-95b8-3a67bde77004"],
Cell[188453, 4769, 215, 5, 19, "Print",ExpressionUUID->"5e0f99ff-6ec6-4d1d-8079-8a4931646f98"],
Cell[188671, 4776, 332, 7, 19, "Print",ExpressionUUID->"8631490b-711b-4cf1-a352-c9bc8acff0f2"],
Cell[189006, 4785, 219, 5, 19, "Print",ExpressionUUID->"a2d72f55-4a55-45ed-90d3-074de1fb9f97"],
Cell[189228, 4792, 332, 7, 19, "Print",ExpressionUUID->"810bf72f-385d-416d-8d59-b1e15e8d02ad"],
Cell[189563, 4801, 219, 5, 19, "Print",ExpressionUUID->"27232732-9549-4b13-a37f-a22bb30524c9"],
Cell[189785, 4808, 330, 7, 19, "Print",ExpressionUUID->"c07ba5a6-8d0d-4287-aefa-6956c6ecc836"],
Cell[190118, 4817, 219, 5, 19, "Print",ExpressionUUID->"35f5cfef-36e6-48b2-b768-5556074b9ccf"],
Cell[190340, 4824, 330, 7, 19, "Print",ExpressionUUID->"c409b69f-214f-4ec4-8000-5f24322e7e6e"],
Cell[190673, 4833, 217, 5, 19, "Print",ExpressionUUID->"87973a62-a5d9-4f8f-b579-37fb9cb63784"],
Cell[190893, 4840, 332, 7, 19, "Print",ExpressionUUID->"1592d358-93c4-429a-adcc-3611f309066e"],
Cell[191228, 4849, 219, 5, 19, "Print",ExpressionUUID->"b308b8e0-72b3-47c6-b8d5-896795310660"],
Cell[191450, 4856, 332, 7, 19, "Print",ExpressionUUID->"eb5374f5-9315-4b00-8b79-f8b6d6f2cc74"],
Cell[191785, 4865, 219, 5, 19, "Print",ExpressionUUID->"3c42a8bb-18c7-47ea-ab1d-79526056859b"],
Cell[192007, 4872, 329, 7, 19, "Print",ExpressionUUID->"22e31446-10a3-4886-b7b1-2b8ed0870f78"],
Cell[192339, 4881, 217, 5, 19, "Print",ExpressionUUID->"28fb2177-02f0-41f0-bc76-692e8f7c35d1"],
Cell[192559, 4888, 330, 7, 19, "Print",ExpressionUUID->"bbbdc10c-311c-44ab-839b-8d100b6d0ef7"],
Cell[192892, 4897, 217, 5, 19, "Print",ExpressionUUID->"cdf08fff-7299-4f48-8e5e-bd39608b826e"],
Cell[193112, 4904, 332, 7, 19, "Print",ExpressionUUID->"468157a8-f2ca-4562-a93e-7b51187f9711"],
Cell[193447, 4913, 219, 5, 19, "Print",ExpressionUUID->"84723c3c-9c20-47e6-8941-ed5566d93894"],
Cell[193669, 4920, 332, 7, 19, "Print",ExpressionUUID->"09eae414-dfb4-42ba-907d-36f7d0cf850a"],
Cell[194004, 4929, 219, 5, 19, "Print",ExpressionUUID->"1b10ace6-d678-4672-95ce-b30d4a0bd34c"],
Cell[194226, 4936, 332, 7, 19, "Print",ExpressionUUID->"dc65179a-8746-455c-9d8b-ead1b9f4fc5f"],
Cell[194561, 4945, 219, 5, 19, "Print",ExpressionUUID->"b479f834-295c-4fbc-a273-189b4749eeb5"],
Cell[194783, 4952, 330, 7, 19, "Print",ExpressionUUID->"bc944bf6-05ca-4906-b3be-12878bb87571"],
Cell[195116, 4961, 217, 5, 19, "Print",ExpressionUUID->"9911a607-73af-453c-8d19-e24f006f613d"],
Cell[195336, 4968, 330, 7, 19, "Print",ExpressionUUID->"9fd345fd-0b88-4dd4-a6d4-40668af5315c"],
Cell[195669, 4977, 217, 5, 19, "Print",ExpressionUUID->"59f73471-ed88-400b-83e7-2f0e462f2f5d"],
Cell[195889, 4984, 330, 7, 19, "Print",ExpressionUUID->"f528e629-5cb4-4d87-9d9b-97fa1d309003"],
Cell[196222, 4993, 217, 5, 19, "Print",ExpressionUUID->"e0970e63-f2af-4694-8696-ada2c72ac2a1"],
Cell[196442, 5000, 330, 7, 19, "Print",ExpressionUUID->"6c186638-8f24-410b-93fe-c392857e0c06"],
Cell[196775, 5009, 217, 5, 19, "Print",ExpressionUUID->"d9c0a9b9-b8b1-4ffd-b380-490a82a86f6e"],
Cell[196995, 5016, 330, 7, 19, "Print",ExpressionUUID->"08e4cdb7-7b5f-4f1f-9347-bcc2ac4f5b80"],
Cell[197328, 5025, 217, 5, 19, "Print",ExpressionUUID->"0140d9f0-4c3f-4b4d-9d3e-5ff339d2b394"],
Cell[197548, 5032, 330, 7, 19, "Print",ExpressionUUID->"8505b592-ddf8-4744-8747-a8f6cd9cd219"],
Cell[197881, 5041, 216, 5, 19, "Print",ExpressionUUID->"f74178ee-b5b8-405d-b2a9-ab87ee29e988"],
Cell[198100, 5048, 332, 7, 19, "Print",ExpressionUUID->"aaac044c-ef97-425b-97f3-9c21484207d2"],
Cell[198435, 5057, 216, 5, 19, "Print",ExpressionUUID->"de37624a-1e48-48c5-8c03-e3e4b86d2d6a"],
Cell[198654, 5064, 330, 7, 19, "Print",ExpressionUUID->"895ffdaa-6ad4-4ce8-97f2-72bc26979c0a"],
Cell[198987, 5073, 217, 5, 19, "Print",ExpressionUUID->"d3102609-ade9-406b-9cf0-e83cc23fe99c"],
Cell[199207, 5080, 329, 7, 19, "Print",ExpressionUUID->"84dcb79f-4067-4478-ae18-aeee61e7f4d2"],
Cell[199539, 5089, 216, 5, 19, "Print",ExpressionUUID->"2abbc1c9-7335-403a-80b0-73acb7fc9871"],
Cell[199758, 5096, 332, 7, 19, "Print",ExpressionUUID->"d1e55ae9-f8ed-434a-a003-ab5b6a74bc01"],
Cell[200093, 5105, 219, 5, 19, "Print",ExpressionUUID->"b1309d9f-e0b1-4e81-b75e-29d5fbf00528"],
Cell[200315, 5112, 332, 7, 19, "Print",ExpressionUUID->"208fdbde-bed5-4768-b7cc-6eb52188fdc2"],
Cell[200650, 5121, 217, 5, 19, "Print",ExpressionUUID->"8793477a-efab-44f8-8f40-dc3ed9b0a1e2"],
Cell[200870, 5128, 332, 7, 19, "Print",ExpressionUUID->"79ddcd05-e715-4443-bbe0-7f5478d6e03e"],
Cell[201205, 5137, 219, 5, 19, "Print",ExpressionUUID->"5475dfac-c270-4065-b2ef-7c2e4e604bf2"],
Cell[201427, 5144, 332, 7, 19, "Print",ExpressionUUID->"345b8bbc-7c32-4ae0-92a9-811c3924f294"],
Cell[201762, 5153, 219, 5, 19, "Print",ExpressionUUID->"8fd484b1-87e8-42d8-8964-db57ea20cc1d"],
Cell[201984, 5160, 330, 7, 19, "Print",ExpressionUUID->"48884a92-57ea-4e15-b8c4-a3aa4cfe42ac"],
Cell[202317, 5169, 219, 5, 19, "Print",ExpressionUUID->"e54d383a-a051-4b55-b452-21959ee20bfd"],
Cell[202539, 5176, 329, 7, 19, "Print",ExpressionUUID->"a002eaf2-7bba-4c8c-a9c9-ac8cd99d31bb"],
Cell[202871, 5185, 216, 5, 19, "Print",ExpressionUUID->"85459c9b-1ab1-4300-80f3-f04c63052df1"],
Cell[203090, 5192, 330, 7, 19, "Print",ExpressionUUID->"c7f40652-3da6-4275-970d-2276ff5c5275"],
Cell[203423, 5201, 217, 5, 19, "Print",ExpressionUUID->"729652e4-8da6-4492-8ed7-6b6a64e2aae6"],
Cell[203643, 5208, 332, 7, 19, "Print",ExpressionUUID->"88066607-abcf-4858-9b54-dffdbb50e8a6"],
Cell[203978, 5217, 219, 5, 19, "Print",ExpressionUUID->"db014146-12ed-4488-b5bf-f74402089d5d"],
Cell[204200, 5224, 330, 7, 19, "Print",ExpressionUUID->"4753d2dd-c642-47af-9cbc-42beda99c725"],
Cell[204533, 5233, 217, 5, 19, "Print",ExpressionUUID->"37813486-b47c-46cd-b552-11dbf865231d"],
Cell[204753, 5240, 330, 7, 19, "Print",ExpressionUUID->"41eb9c56-eb53-4e22-a036-fbcb29585efb"],
Cell[205086, 5249, 217, 5, 19, "Print",ExpressionUUID->"c6b99e4f-9eb5-423b-ae9e-a306bd4dfe28"],
Cell[205306, 5256, 332, 7, 19, "Print",ExpressionUUID->"e73419b8-d140-474b-b0e8-80642fcff941"],
Cell[205641, 5265, 219, 5, 19, "Print",ExpressionUUID->"d92a4e61-ac9c-475e-bcd1-bf08f7671253"],
Cell[205863, 5272, 332, 7, 19, "Print",ExpressionUUID->"bdacf4a2-2aed-426c-8f83-d91eb9966fca"],
Cell[206198, 5281, 219, 5, 19, "Print",ExpressionUUID->"4a4a79a8-8c57-4ceb-a875-b4c171bb7a59"],
Cell[206420, 5288, 329, 7, 19, "Print",ExpressionUUID->"761c5290-5164-429b-9da2-da3add6e0df4"],
Cell[206752, 5297, 216, 5, 19, "Print",ExpressionUUID->"4356e2ff-f3cf-4bba-8f15-53e9ab6adc77"]
}, Open  ]],
Cell[206983, 5305, 210, 3, 24, "Output",ExpressionUUID->"1d198c0e-05e9-4b98-bdc3-04b8f329ec40"]
}, Open  ]]
}
]
*)

